while (podmínka) do (příkazy);Hezky česky řečeno (Dokud platí "podmínka" dělej "příkazy")
var x:integer;
begin
write('Zadej počet hvězdiček: ');
readLn(x);
while x>0 do
begin
writeln('*');
x:=x-1;
end;
read(x);
end.
repeat (příkazy) until (podmínka);Hezky česky řečeno (Opakuj "příkazy" dokud nezačne platit "podmínka")
var x:integer;
begin
write('Zadej počet hvězdiček: ');
readLn(x);
repeat
begin
writeln('*');
x:=x-1;
end;
until x>0;
read(x);
end.