freepascal.compiler/tests/tbs0005.pp

uses 
  erroru;

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