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.