program sum;
{$APPTYPE CONSOLE}
uses SysUtils;
var kingaku, n500, n100, n50, n10, n5, n1: integer;
begin
    write('kingaku ?: ');
    readln(kingaku);
    n500 := kingaku div 500;
    n100 := ( kingaku mod 500 ) div 100;
    n50 := ( kingaku mod 100 ) div 50;
    n10 := ( kingaku mod 50 ) div 10;
    n5 := ( kingaku mod 10 ) div 5;
    n1 := kingaku mod 5;
    writeln('500 en', n500:4, ' mai');
    writeln('100 en', n100:4, ' mai');
    writeln('50 en ', n50:4, ' mai');
    writeln('10 en ', n10:4, ' mai');
    writeln('5 en  ', n5:4, ' mai');
    writeln('1 en  ', n1:4, ' mai');
    readln
end.