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

program zz1;

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

begin

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

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

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

end.