viết phương trình nhập vào 1 mảng số nguyên gồm N số (0<N<=100) tính tổng các số lẻ, tổng này có chia hết cho 3 hay không

Program mang;

Uses crt;

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

      N, i: integer;

Begin clrscr;

          Write('Nhap N: ');Readln(N);

          Write('Mang do la: ');

          For i:=1 to N do

          Begin

                   A[i]:=0; write(A[i]: 2);

           end;

           Readln;

End.

uses crt;
var i,n :longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do
        begin
         write('nhap a[',i,']=');readln(a[i]);
         if(a[i]>0)or(a[i]<0)then
                begin
                 write('nhap lai a[',i,'], a[',i,'] phai bang 0:');readln(a[i]);
                end;
        end;
 readln
end.