TP3/shell/tests/fixtures/t09_if.pas

program t09;
var
  x : integer ;
begin
  if x > 0 then
    x := 1
  else
    x := 2
end.