Pętle wykonywane przy spełnieniu warunku – instrukcja
WHILE.

W pętlach, w których wykonywanie działań jest uzależnione

od spełnienia warunku powtarzania obliczeń, instrukcja cyklu
jest powtarzana tak długo, dopóki warunek jest spełniony. Pętle
takie należy realizować przy użyciu instrukcji WHILE.

Instrukcja WHILE

WHILE Warunek DO

Instrukcja

Przykład:

Obliczyć sumę liczb pewnego ciągu liczb, zakończone-
go liczbą 0.

begin

s:=0;

write(‘Wprowadzaj kolejne skladniki sumy (ostatni 0)’);

readln(x);
while x>0 do
begin
s:=s+x;
readln(x);
end;
writeln(‘Suma liczb ciagu = ‘,s);

end.