Viết chương trình nhập vào dãy số nguyên có N phần tử ( N nhập từ bàn phím ).Hiển thị kết quả các số chẵn và tính tổng các số chẵn ra màn hình

program phuongt;
uses crt;
  var A: array[1..500] of integer;
        n, i, s integer;
begin
           clrscr;
           write('Nhap n = '); readln(n);
           for i:=1 to n do
           begin
                     write('A[', i, '] = '); readln(A[i]);
           end;
           s:=0;
           write('Cac so chan: ');
           for i:=1 to n do if A[i] mod 2 = 0 then
           begin
                      write(A[i]:3);
                      s:=s+A[i];
           end;
           writeln;
           write('Tong so chan: ', s);
           readln
end.

program ct;

uses crt;

var s,i,n:integer;

 A:array[1..100] of integer;

begin

clrscr;

write('nhap n=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']='); readln(a[i]);

end;

s:=0;

for i:=1 to n do

begin

  if a[i] mod 2=0 then writeln('cac so chan la',a[i]);

  if a[i] mod 2=0 then s:=s+a[i];

end;

writeln('tong cac so chan la',s);

readln

end.