fpc/tests/tbs0005.pp

begin
  if 1=1 then
    begin
      Writeln('OK');
    end;
  if 1<>1 then
    begin
      Halt(1);
    end;
end.