program penz;
var n,p:integer;
begin
     WriteLn('Kerem az osszeget!');
     ReadLn(n);
     p:=n div 10000;
     if p>0 then writeln(p,' darab tizezres');
     n:=n mod 10000;
     p:=n div 5000;
     if p>0 then writeln(p,' darab otezres');
     n:=n mod 5000;
     p:=n div 2000;
     if p>0 then writeln(p,' darab ketezres');
     n:=n mod 2000;
     p:=n div 1000;
     if p>0 then writeln(p,' darab ezres');
     n:=n mod 1000;
     p:=n div 500;
     if p>0 then writeln(p,' darab otszazas');
     n:=n mod 500;
     p:=n div 200;
     if p>0 then writeln(p,' darab ketszazas');
     n:=n mod 200;
     p:=n div 100;
     if p>0 then writeln(p,' darab szazas');
     n:=n mod 100;
     p:=n div 50;
     if p>0 then writeln(p,' darab otvenes');
     n:=n mod 50;
     p:=n div 20;
     if p>0 then writeln(p,' darab huszas');
     n:=n mod 20;
     p:=n div 10;
     if p>0 then writeln(p,' darab tizes');
     n:=n mod 10;
     p:=n div 5;
     if p>0 then writeln(p,' darab otos');
     n:=n mod 5;
     p:=n div 2;
     if p>0 then writeln(p,' darab kettes');
     n:=n mod 2;
     writeln(n,' darab egy forintos');
     readln
end.