Решение.

Программа будет включать в себя решение этой задачи с использованием цикла While.

Program Natur;

Var a, Summa: integer;

begin

write (‘N=’); readln (N);

{Цикл с предусловием}

a:=1; Summa:= 0;

while a<=N do

begin

Summa:= Summa+a;

a:= a+1;

end;

end.