Giúp mình làm bài tập về Turbo Pascal

[coconvuive12]

Cho 1 dãy số nguyên gồm n phàn tử,n nhập từ bàn phím
a, Hãy nhập và hiện dãy số trên
b,Hãy hiện ra màn hình dãy số ngược lại dãy số trong câu a
c,Tính tổng của các số trong dãy trên vs các số là bội của 3
d, Hãy hiện ra màn hình các số chẵn tren 1 dòng,số lẻ trên 1 dòng. Các số lẻ trên dòng thứ 2 của dãy số trong câu a

 

[coconvuive12]

Cho em spam cái: Ko ai giúp mình làm à(Mong các mod thông cảm-Bài của chị gái ruột)

 

[daodangviet]

program dayso;
uses crt;
var a:array [1.100] of integer;
i,k,n:byte;
begin
writeln(' nhap n:');
readln;
for i:=1 to n do
begin
writeln('Nhap A[',i,']:');
readln(a);
end; { nhap xong day a }
for i:=1 to n do write(a,' '); { hien day a tren mot dong }
for i:=n downto 1 do write(a,' '); { hien day a nguoc lai }
k:=0; { k la tong cac so la boi cua 3}
for i:=1 to n do if a mod 3 =0 then k:=k+a;
writeln(' Tong cac so chia het cho 3 la:',k);
for i:=1 to n do if a mod 2=0 then write(a,' '); {hien dong so chan}
writeln; {xuong dong}
for i:=1 to n do if a mod 2=1 then write(a,' '); {hien dong so le}
readln
end.
{OK}