рубли копейки

var
    k, kop, rub: integer;
begin
    readln(k);
    rub := k div 100;
    kop := k mod 100;
    writeln(rub, 'руб. ', kop, 'коп.');
end.