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

• program task_6;
• var a, e: real;
• begin
• b, c, d: real;
• writeln \('Преобразование числа в денежный формат'\);
• write \('Введите дробное число \- '\);
• readln \(a\);
• e := a*100;
• b := round \(e\);
• c :=b div 100;
• d := b mod 100;
• write \(a:8:5, ' руб\. \- это ', c, ' руб\. ',d , ' коп\.'\);
• end.