program nobreak;

{$IFDEF SCREWED_UP}
uses crt;
{$ENDIF}

begin
{$IFDEF SCREWED_UP}
CheckBreak := TRUE;
{$ENDIF}

  while (1<>0) do
    if(random>0.95) then
      writeln('Hello world');
end.