Напишите программу на ABC паскале которая вычисляет сумму всех чётных чисел в диапазоне от 1 до n

program summa_chetnyh;

var i, sum: integer;

begin

writeln ('Введите последнее число, которым необходимо завершить счёт');

readln (n);

for i:=1 to n do if i div 2 = 0 then sum:=sum+i;

writeln ('Сумма всех чётных чисел от 1 до ', n, ' составляет: ', sum);

end.