Программа паскаль
Ввести число, определяющее стоимость покупки (например 123, 50). Вывести строку, определяющую стоимость с использованием текста (123 руб. 50 копеек).

var s,d,v:string;n,m:integer;beginRead(s);n:=length(s);m:=pos('.',s);d:=copy(s,1,m-1);v:=copy(s,m+1,n);write(d,' руб. ',v, ' копеек');end.