Question

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

Answer 1

var i,n,s:integer;
begin
read (n);
s:=0;
for i:=1 to n do
begin
s:=s+i;
end;
writeln (s);
end.