Pascal :

var a,b,c,d:longint;
begin
  readln(d);
  a:=d div 10;
  b:=d mod 10 div 5;
  c:=d mod 10 mod 5 div 1;
  writeln('10yuan:',a);
  writeln('5yuan:',b);
  writeln('1yuan:',c);
end.