Напишите программу на 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.