DIVMOD10 PASCAL

var a, d, m:longint;
begin
    assign(input,'divmod10.inp');reset(input);
    assign(output,'divmod10.out');rewrite(output);
    read(a);
    m:=a mod 10;
    d:=a div 10;
    writeln(a,' mod 10 = ',m);
    writeln(a,' div 10 = ',d);
end.