Составьте программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. Например, число 12,348 должно быть преобразовано к виду 12 руб. 35 коп.

var i:integer; j,n:real;beginwrite('Введите число: '); readln(n);i:=trunc(n);j:=round(frac(n)*100);write(i,' руб. ',j, ' коп.');end.