Có bài pascal nhờ các pro giúp nè

[Maihoaca]

nhập 1 mảng hai chiều gồm 10 hàng ,10cột và in ra màn hình các số chia hết cho 3
thanks các anh chị trước nha

 

[thegioihoc]

uses crt;
var a:array[1..20,1..20] of integer;
b:array[1..50] of integer;
m,n,i,j,t:integer;
BEGIN
clrscr;
write('Nhap so hang:');readln(m);
write('Nhap so cot:');readln;
for i:=1 to m do
for j:=1 to n do
begin
write('Nhap a[',i,',',j,']=');
readln(a[i,j])
end;
t:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j] mod 3=0 then
begin
t:=t+1;
b[t]:=a[i,j];
end;
write('Cac so chia het cho 3 la: ');
for i:=1 to t do write(b:3);
readln;
END.

Cái này h không phải nghề của mình nên chỉ pít có vậy