сумму натурального ряда от 13 до 110 : 4972

var i,s:integer;

begin

for i:= 13 to 110 do s:=s+i;

writeln ('Сумма натурального ряда от 13 до 110 равна ',s)

end.