Giúp mình với mai mình thi học kỳ rồi ?? Nhập vào 1 mảng các số lẻ không quá 50 phần tử. Tính tổng các phần tử chia cho 3 dư 2

program ct;

uses crt;

var i,n,S:integer;

      A:array[1..50] 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

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

    writeln('tong la:',S);

readln

end.

uses crt;
var a : array[1..100] of integer;
i,n,s : integer;
begin clrscr;    s:=0;
write('Nhap n:'); readln(n);
for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 3 = 2 then s:=s+a[i];
write(s);
readln
end.