second_via_proc

program second;
uses sysutils;
var
    n:integer;
procedure proc(a:integer);
begin
    writeln(IntToStr(a + 1), '|', IntToStr(length(IntToStr(a))));
end;

begin
    readln(n);
    proc(n);
end.