Найти сумму натуральных чисел от 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.