Сумма всех чётных чисел от 1 до N с клавиатуры

Паскаль

program summa;

var i, a, n, sum:integer;

begin

writeln ('Введите n');

read (n);

sum:=0;

for i:=1 to n do

begin

read (a);

if (a mod 2=0) then sum:=sum+a;

end;

writeln ('Cумма всех четных чисел = ', sum);

end.