fpc/bugs/bug0007.pp
1998-03-25 11:26:49 +00:00

11 lines
114 B
ObjectPascal

var
count : byte;
begin
for count:=1 to 127 do
begin
writeln(count,'. loop');
end;
end.