.Составить программу, которая вычисляет дробную часть вещественного числа x, введенного с клавиатуры.
var x,c:real;
begin
read(x);
c:=frac(c);
writeln(c:1:6);
readkey;
end.