program Chernovik;
var i,s: integer;
begin
s:=0;
for i:=1 to 50 do
s:=s+i;
write(s)
end.
Объяснение:
В цикле суммируются числа от 1 до 50
Вывод переменной s (суммы)
