quachduchau

uses crt;
var n,m:byte;
A:array[1..i,1..j] of integer;
begin
writeln('nhap so cot so hang');readln(m,n);
for i:=1 to m do
for j:=1 to n do
writeln('a[',i,',',j,']=');readln(a[i,j]);
for i:=1 to i do
for j:=1 to j do
if (a[i,j] mod 5=0) and (a[i,j] mod 3=0) then writeln(a[i,j]);
readln
end.
to moi viet chua thu nen chac ko chuan lam.