fpc/tests/tbs0129.pp
1998-12-02 13:05:01 +00:00

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.