Uses crt;
var a: array [1..100,1..100] of integer;
    x,y,n,m,k:integer;
begin
     write('n:'); readln(n);
     write('m:'); readln(m);
     for x:=1 to n do
     begin
         for y:=1 to m do
         begin
         a[x,y]:=random(10);
         write(a[x,y]:3);
         end;
         writeln;
     end;
     y:=m;
     for x:=1 to n do
         if a[x,y]>5 then inc(k);
     writeln;
     writeln('Количество элементов больших 5 в последнем столбце: ',k);
end.