Отыскать сумму всех целых числа из интервала от 300 до 600

program zz1;

var n, i:integer; // вводим переменную целого типа

begin

for i:=300 to 600 do  // организуем цикл, в котором переберем все числа от трехсот до шестисот

n:=n + i; // добавляем число в сумму

write( сумма всех целых числа из промежутка от 300 до 600 = , n); // выводим ответ

end.