fpc/tests/tbs0004.pp
1998-10-28 10:06:25 +00:00

14 lines
154 B
ObjectPascal

var
i : longint;
begin
for i:=1 to 100 do
begin
writeln('Hello');
continue;
writeln('ohh');
Halt(1);
end;
end.