Рассмотри схему. Составь предложение по этой схеме и запиши его. Что? что сделала?

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