Program Mkoren;
 uses wincrt;
  var X,M,Eps,Koren,y,w,z,mm:real;
      k,i:integer;
      st:string;
      e:longint;
 begin
    Writeln('Извлечение корня степени M из действительного числа X');
    Writeln('с требуемой степенью точности Eps');
    Write('Введите число X=');Readln(X);
    Write('Введите степень корня M=');Readln(M);
    Write('Введите требуемую точность вычисления корня Eps=');Readln(Eps);
    
    Koren:=1;
    mm:=(m-1)/m;
    z:=x/m;
     repeat
       y:=Koren;
       k:=1;
       w:=z;
       while ((k<m) and (w>=eps)) do
         begin
          w:=w/Koren;
          k:=k+1;
         end;
       Koren:=y*mm+w
     until abs(Koren-y)<eps;
       e:=round(1/eps);
       str(e,st);
       i:=length(st)-1;
       writeln (Koren:4:i);
 End.