Сумма всех чётных чисел от 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.