program RealNumber;
varx: real;intPart: integer;fracPart: real;
beginwriteln('Введите действительное число x (<10): ');readln(x);
intPart := trunc(x);fracPart := x - intPart;
writeln('Целая часть числа x: ', intPart);writeln('Дробная часть числа x: ', fracPart:0:2);end.
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.