check/type/fail-if.p


1
2
3
4
5
6
7
8
9

program main ( input, output );
        var a: integer;
begin
	if (1)
        then
                a:= 1
        else
                a:= 0
end.