program sum;
{$APPTYPE CONSOLE}
uses SysUtils;
var kingaku, sen, en: integer;
begin
    write('kingaku ?: ');
    readln(kingaku);
    sen := kingaku div 1000;
    en := kingaku mod 1000;
    writeln('1000 en =', sen:8, ' mai');
    writeln('1 en =   ', en:8, ' mai');
    readln
end.