Help me everybody !viết chương trình thực hiện lặp 10 phần tử có giá trị nguyên, cho mảng A từ bàn phím và tính tổng các phần tử chẳng có trong mảng A

program ct;

uses crt;

var i,n,S:integer;

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

begin

clrscr;

   for i:=1 to 10 do

begin

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

end;

  S:=0;

   for i:=1 to 10 do

      if A[i] mod 2=0 then S:=S+A[i];

    writeln('tong cac phan tu chan la:',S);

readln

end.

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