uses crt;
type mas=array[1..10,1..10] of real;
var m:mas;a:array[1..10] of real;
    i,j,n:integer;g:real;
function log10(x:real):real;
begin
   log10:=ln(x)/ln(10);
end;
 
procedure bg(m:mas;n:integer;g:real);
var i,j:integer;
begin
   for i:=1 to n do
     begin
        for j:=1 to n do
           if log10(m[i,j])>g then
           write(m[i,j]:6:2);writeln;
     end;
readln;
end;
 
begin
clrscr;
write('Введите n<=10; n=');readln(n);
write('Введите число g (0<=g<=1); g=');readln(g);
randomize;
for i:=1 to n do
for j:=1 to n do
    begin
      m[i,j]:=random(10)+1+random;
    end;
for i:=1 to n do
   begin
     for j:=1 to n do
         write(m[i,j]:6:2);
   writeln;
  end;
readln;
 
bg(m,n,g);
 
end.