Viết chương trình nhập vào mảng A gồm n số nguyên?

uses crt;

var n,i,dem,j:longint;

a:array[1..100]of longint;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

write('Day so: ');

for i:=1 to n do write(a[i],' ');

write('Cac so chia het cho 2,3,5: ');

for i:=1 to n do if (a[i] mod 2=0)and(a[i] mod 3=0)and(a[i] mod 3=0)then

                              begin

                                 write(a[i],' ');

                                  dem:=dem+a[i];

                              end

 else if n=a[i] then write('0');   

write('Tong cua chung: ',dem);

readln

end.

1