freepascal.compiler/tests/tbs0007.pp

var
   count : byte;
   test : longint;
begin
   test:=0;
   for count:=1 to 127 do
     begin
        inc(test);
        writeln(count,'. loop');
        if test>127 then 
          Halt(1);
     end;
end.