Отыскать сумму натуральных чисел от 1 до 50. Программу написать на

program zz1;

var i, s:integer; // задаем переменные целого типа

begin

for i:=1 to 50 do // организуем цикл, в котором переберем числа от единицы до пятидесяти

begin

s:=s + i; //  прибавляем еще одно число в сумму

end;

write( сумма естественных чисел от 1 до 50 = , s); // выводим ответ

end.