посчитайте Даю 50 поинтов Написать программу, которая найдет сумму первых 50 натуральных чисел

program Chernovik;

var i,s: integer;

begin

s:=0;

for i:=1 to 50 do

s:=s+i;

write(s)

end.

В цикле суммируются числа от 1 до 50

Вывод переменной s (суммы)