mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-02-25 01:48:40 +01:00
15 lines
226 B
ObjectPascal
15 lines
226 B
ObjectPascal
{ Old file: tbs0129.pp }
|
|
{ endless loop with while/continue OK 0.99.6 (FK) }
|
|
|
|
var
|
|
e:boolean;
|
|
a:integer;
|
|
begin
|
|
e:=true;
|
|
a:=3;
|
|
while (a<5) and e do begin
|
|
e:=false;
|
|
write('*');
|
|
continue;
|
|
end;
|
|
end. |