program ReverseDigits;

var
num, numCopy: real;
digit: integer;

begin
// Ввод вещественного числа
write('Введите вещественное число: ');
readln(num);

// Копирование числа для извлечения цифр
numCopy := abs(num);

// Печать цифр в обратном порядке без десятичной точки
while numCopy > 0 do
begin
digit := trunc(numCopy 10) mod 10;
write(digit);
numCopy := numCopy 10;
numCopy := frac(numCopy);
end;

end.