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

Question

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

Answer 1

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