viết chương trình nhập vào 1 số nguyên dương(>=250) và dãy số gồm N số nguyên từ A1...An. hiển thị mảng trên và đếm tổng các số chia hết cho 3

Program Hotboy;

Uses crt;

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

I,n : byte;

S:real;

Begin

Clrscr ;

S:=0;

Repeat

Write('nhao so phan tu trong day'); readln(n);

Until n>=250;

For i:=1 do n do 

Begin

Write('A[',i,']'); readln(A[i]); 

End;

For i:=1 to n do

If A[i] mod 3 =0 then 

S:=S+A[i] ; 

Writeln('Tong cac phan tu chia het cho 3 trong mang la',S); 

Readln

End.

program T;

uses crt;

var i,N,tong:integer;

      a:array [1..1000000] of integer;

begin

clrscr;

write('Nhap N>=250: ');readln(N)

while N<=250 then

begin

  write('Nhap lai: ');readln(N)

end;

writeln('Nhap ',N,' so nguyen: ');

for i: = 1 to N do

begin

 write('a[',i,'] : ');readln(a[i])

end;

tong:=0;

for i:= 1 to N do

begin

  write(a[i],'   ');

  if  a[i] mod 3 = 0 then tong:=tong+1

end;

writeln;

writeln('Tong cac so chia het cho 3 la: ',tong);

readln;

end.