Наверное так :З

var x:real;

Begin

 write('Введите число: '); read(x);

 writeln('Целое число: '+floor(x));

 var r:real := 1;

 for var i := 1 to length(''+(x-floor(x)))-2 do

   r := r * 10;

 writeln('Дробное число: '+((x-floor(x))*r + (floor(x) * r))+' / '+r+'');

 write('Округленно число: ', round(x));

End.