Операторы организации циклов

Оператор повторения с предусловием
while
Формат:
while условие do
begin
тело цикла
end;

Блок-схема while
........
While Bl do
begin
P1;
P2;
.
.
Pn;
end;
........

Работа оператора while
проверяется условие;
если оно истинно, то выполняется тело цикла;
вновь проверяется условие и т.д.,
как только на очередном шаге окажется, что условие ложно, то выполнение цикла прекратится
Если условие сразу ложно, то тело цикла не выполнится ни разу.

Пример1
While x<=0 do
x:=x+1;
Если x отрицательно, то к этому значению будет добавляться по 1 до тех пор, пока значение не станет положительным.
Если x положительно, то значение x не изменяется.
Тестирование
Х
-2 -2<0 true
-1 -1<0 true
0 0=0 true 1 конец цикла
2 Цикл не выполнен

Задача: Составить программу подсчета S
Program s_While;
var s:real;
n,i:integer;
Begin
readln(n); s:=0;
i:=1;
while i<=n do
begin
s:=s+1/i;
i:=i+1;
end;
writeln(s);
End.
Тестирование
N i S
1 1 0
Условие 1<=1 верно (True)
2 1
Условие 2<=1 не верно(False)
Цикл закончил работу
2 1 0
Условие 1<=2 верно (True)
2 0+1=1
Условие 2<=2 верно(True)
3 1+0.5=1.5
Условие 3<=2 не верно(False)
Цикл закончил работу

Вычислить сумму квадратов целых чисел в диапазоне от m до n: ;
если n
......
Read (m,n);
s:=0;
i:=m;
While i<=n do
begin
s:=s+sqr(i);
i:=i+1;
end;
Writeln(s);
......