ПАСКАЛЬ:Требуется преобразовать введённое дробное число в денежный формат. Например,...

Question

ПАСКАЛЬ:Требуется преобразовать введённое дробное число в денежный формат. Например, число «12.34» должно быть представлено в виде «12 rub 34 kop».
ФОРМАТ ВХОДНЫХ ДАННЫХ:
Вводится одно неотрицательное вещественное число, которое не превосходит 10в 5 степени, задано с точностью до двух знаков после запятой.
ФОРМАТ ВЫХОДНЫХ ДАННЫХ:
Выведите данное число в денежном представлении. Выводить ведущие нули в количестве копеек не нужно.

Answer 1

Var s:string;
n:real;
q:integer;
begin
readln(n);
writeln(trunk(n),' rub ',trunk(n*100) mod 100,' kop');
end.