Viết CT nhập *N số nguyên . Tính tổng các số chẵn và in các số chẵn ra màn hình

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

    writeln(res);

    for i:=1 to n do 
        if a[i] mod 2 = 0 then write(a[i], ' ');
readln; readln;
end.

code pascal:

program bai_tap;

uses crt;

var A:ARRAY[1..10000] of longint;

n,i,t:longint;

begin

clrscr;

write('nhap so phan tu: ');

read(n);

for i:=1 to n do

begin

write('nhap pt thu ',i,' : ');

read(A[i]);

end;

write('Cac so chan la: ');

for i:=1 to n do

if A[i] mod 2=0 then

begin

t:=t+A[i];

write(A[i],'  ');

end;

writeln;

write('Tong cac so chan la : ',t);

readln;

readln;

end.