Viết chương trình nhập mảng gồm 20 phần tử nguyên. tính tổng các phần tử trong mảng ? đếm các phần tử chia hết cho 3 ?

uses crt;
var i,s,dem:longint;a:array[1..20]of longint;
begin
 clrscr;
  dem:=0;
  s:=0;
  for i:=1 to 20 do
        begin
         write('nhap a[',i,']=');readln(a[i]);
         s:=s+a[i];
         if(a[i] mod 2=0)then inc(dem);
        end;
  writeln('tong cac phan tu trong mang la:',s);
  write('co ',dem,' so chia het cho 2 trong mang');
 readln
end.

Var A: array[1..20] of longint;

Begin
        For i:=1 to 20 do
                Readln(A[i]);
        For i:=1 to 20 do
                Writeln(A[i]);
        d:=0;
        For i:=1 to 20 do
                If A[i] mod 2 = 0 then Begin Writeln(A[i]); inc(d); End;
        Write(d);
        Readln
End.