Viết chương trình nhập vào số nguyên N, hãy tính tổng các số chẵn trong N số nguyên đó (mọi người có thể cap màn hình pascal lại nữa thì càng tốt ạ)

var tong,i,n:longint;
    a:array[0..10000] of longint;
begin
        read(n);
        for i:=1 to n do
        begin
                write('a[',i,']');
                read(a[i]);
        end;
        for i:=1 to n do
                if a[i] mod 2<>0 then tong:=tong+a[i];
                write(tong);
readln;
readln;
end.

program bai_giai;
uses crt;
var a:array[1..1000]of longint;i,n,s:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if(a[i] mod 2=0)then s:=s+a[i];
        end;
  write('s=',s);
 readln
end.