Кто знает Pascal помогите!!!

Question

Составить программу, которая преобразует введение с клавиатуры дробное число в денежный формат
НАПРИМЕР число 12,5 должно быть преобразовано к виду 12 руб 50 коп

а - исходные данные

x, y - результат

trune(12.5)=12

frace(12.5)=0.5

0.5'100=50.0

trunce(50.0)=50

Виталий Евстигнеев · Accepted Answer

Program _1;
Var x,y:integer;

a:real;

begin

readln (a);

x:= a mod 10;

y:= a-x;

y:=a*100;

writeln ('y=',y);

writeln ('x=',x);

end.