Программирование циклических алгоритмов

Программирование циклов с заданным условием продолжения работы

while условие do оператор
While s > 0 do s:=s-1;
While a <= 20 do
begin
s:=s -1;
a:=a + 1;
end;
(пока) (делай)

1
20
2
18
3
16
4
14
5
12
6
10
7
8
8
6

Program SUMMA;
Var sum, i: integer;
Begin
sum:=0;
i:=1;
While i<=5 do
begin
sum:=sum+i;
i:=i+1;
end;
writeln('Sum:=',sum);
End.
Сумма чисел от
1 до 5

program Primer1;
var N: integer;
begin
N:= 1;
while N <= 5 do
begin writeln(N);
N:= N + 1;
end;
end.
Что получим?
1
2
3
4
5