viết chương trình tính tổng các số chẵn trong dãy số nguyên n phần tử Helppp

Program sochan;

Uses crt;

Var A: array[1..200] of integer;

          n,i,T: integer;

Begin

Clrscr;

T:=0;

Write('Nhap so cac so phan tu:'); Readln(n);

For i:=1 to n do 

    Begin

    Write('A[',i,']=');

    Readln(A[i]);

    If (A[i] mod 2=0) then T:=T+A[i];

    End;

Writeln('Tong cac so chan trong day la:',T);

Readln

End.

uses crt;
var n,i,sum:Longint;
    a:array[1..1000] of longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do
        begin
            read(a[i]);
            if(a[i] and 1 = 0) then inc(sum, a[i]);
        end;
    writeln(sum);
readln; readln;
end.