uses crt;
var n, p, r, c:longint;
begin
ClrScr;
writeln('Introdu un nr de max 9 cifre!'#$A#$D,$7fffffff,#$A#$D); readln(n);

r:=(((( n mod 10
   *10+ n mod 100    div 10   )
   *10+ n mod 1000   div 100  )
   *10+ n mod 10000  div 1000 )
   *10+ n mod 100000 div 10000);
              p := n div 10000;
r:=(((( r
   *10+ p mod 100    div 10   )
   *10+ p mod 1000   div 100  )
   *10+ p mod 10000  div 1000 )
   *10+ p mod 100000 div 10000);

c:= round(-n mod 10       /10       +0.5)
   +round(-n mod 100      /100      +0.5)
   +round(-n mod 1000     /1000     +0.5)
   +round(-n mod 10000    /10000    +0.5)
   +round(-n mod 100000   /100000   +0.5)
   +round(-n mod 1000000  /1000000  +0.5)
   +round(-n mod 10000000 /10000000 +0.5)
   +round(-n mod 100000000/100000000+0.5);

R:=r div  round( exp( (c+trunc(ln(r)/ln(10))-trunc(ln(n)/ln(10))) * ln(10) ));

writeln(r, #$A#$A#$D, trunc(ln(n)/ln(10)+1), ' cifre ');
readkey;
end.