сумму натурального ряда от 13 до 110 : 4972
var i,s:integer;
begin
for i:= 13 to 110 do s:=s+i;
writeln ('Сумма натурального ряда от 13 до 110 равна ',s)
end.
