Составьте программу, которая преобразует введенное с клавиатуры дробное число в денежный формат. Например, число 12,348 должно быть преобразовано к виду 12 руб. 35 коп.
Var i:integer; j,n:real; begin write('Введите число: '); readln(n); i:=trunc(n); j:=round(frac(n)*100); write(i,' руб. ',j, ' коп.'); end.