program zz1;
var a, n, i, s:integer; // задаем переменные целого типа
begin
write(' введите n '); // вводим заданное n
read(n);
for i:=1 to n do
s:=s+i; // находим сумму натуральных чисел
writeln('сумма натуральных чисел от 1 до n = ', s); // выводим ответ
end.