вынести множитель из корня

√48a

√27b втретьей степени

√-6m в пятой

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

 Dat[1] := 16; Dat[2] := 20;

 Dat[3] := 20; Dat[4] := 41;

 Dat[5] := 14; Dat[6] := 21;

 Dat[7] := 28; Dat[8] := 11;

 Dat[9] := 15; Dat[10] := 35;

 m := 50;

 for k := 1 to 10 do

   if  Dat[k]<m then

     begin

       m := Dat[k]

     end;

 writeln(m);

End.