mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-10 21:18:25 +02:00
16 lines
227 B
ObjectPascal
16 lines
227 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.
|