second_via_func

program second;
uses sysutils;
var
    n:integer;
function func(a:integer):string;
begin
    func := concat(IntToStr(a + 1), '|', IntToStr(length(IntToStr(a))));
end;

begin
    readln(n);
    writeln(func(n));
end.