program mn;
uses crt;
var x,y,z:real;
BEGIN
ClrScr;
Write('x ');
readln(x);
y:=frac (x);
z:=y*10;
y:=trunc(z);
Writeln(y);
readln;
END.