Найти сумму всех целых числа из промежутка от 300 до 600

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
  Writeln('s=',Range(300,600).Sum)
end.

Результат:
s=135450