Нахождение суммы целых чисел на промижутке [15;50]

Программа на паскалеvar i,s:integer;begins:=0;for i:=15 to 50 do s:=s+i;writeln('s = ',s);end.Результат:s = 1170