program baigiai;
type
PT: array[1..20,1..20 ] of integer;
var mang
T;
m,n,dem,i,j:integer;
procedure ctc(var B: PT, var m,n:integer);
var i,j:integer;
begin
repeat
write('nhap vao so hang m, cotn (10 <= m <= 20, 5 <= n < 20) :');
readln(m,n);
until (m>=10) and (m<=20) and (n>=5)and (n<20);
for i:=1 to m do
for j:=1 to n do
begin
write('B[',i,',',j,']:='); 'B[i,j]:=
readln(B[i,j]);
end;
end;
begin
'goi ham ctc ra
ctc(mang1,m,n);
'đếm các phần tử mảng vừa chia hết cho 5 và 3
dem=0;
writeln('nhung phan tu chia het cho 5 va 3 la: ');
for i=1 to m do
for j=1 to n do
if(mang1[i,j]mod 3=0)and (mang1[i,j] mod 5=0) then
begin
dem=dem+1;
write(B[i,j], ' ,'); 'dua phan tu do ra man hinh
end;
write('so phan tu mang chi het cho 5 va 3 la:',dem);
readln;
end.