tests/tbs/tb0003.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ Old file: tbs0004.pp }
{  tests the continue instruction in the for loop      OK 0.9.2 }

var
   i : longint;

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