Контролна структура (наредбa) за ЦИКЛИЧНО ПОВТОРУВАЊЕ

                                     -  WHILE  DO -

Основни облици на оваа наредба се:

while услов do
    наредба;

Доколку има повеќе наредби истите се опфаќаат со Begin и End;

while услов do
Begin
    наредбa1;
    наредбa2;
    ...
    наредбaN;
End;

Пример1:

a := 5;
while a < 6 do
  writeln (a);

Пример2:

a := 5;
while a < 6 do
  begin
    writeln (a);
    a := a + 1
  end;

Целосен пример

program proba;
var i,n,s:real;
begin
readln(n);
i:=1;
s:=0;
while (i<=n) do
begin
s:=s+sqr(i);
i:=i+0.5;
end;
writeln(s:6:2);
end.