program RealNumber;

var
x: real;
intPart: integer;
fracPart: real;

begin
writeln('Введите действительное число x (<10): ');
readln(x);

intPart := trunc(x);
fracPart := x - intPart;

writeln('Целая часть числа x: ', intPart);
writeln('Дробная часть числа x: ', fracPart:0:2);
end.