mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 14:07:57 +02:00
12 lines
127 B
ObjectPascal
12 lines
127 B
ObjectPascal
var
|
|
e:boolean;
|
|
a:integer;
|
|
begin
|
|
e:=true;
|
|
a:=3;
|
|
while (a<5) and e do begin
|
|
e:=false;
|
|
write('*');
|
|
continue;
|
|
end;
|
|
end. |