freepascal.compiler/bugs/bug0004.pp

var
   i : longint;

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