var i,n,s:integer;
begin
write ('Введите количество натуральных чисел: ');
readln(n);
s:= 0;
i:= 1;
for i:=1 to n do s:= s + i;
writeln('Сумма',' ', n,' ' , 'натуральных чисел = ', s)
end.
var i,n,s:integer;
begin
write ('Введите количество натуральных чисел: ');
readln(n);
s:= 0;
i:= 1;
for i:=1 to n do s:= s + i;
writeln('Сумма',' ', n,' ' , 'натуральных чисел = ', s)
end.