Đỗ Hoàng Phúc

var
   s: String;
   k : Longint;
   c : array[1..100000] of Longint;
procedure tach (u : String);
var
   i,n,rmax : Longint;
   s,tam : String;
begin
   tam := '';
   k := 0;
   u:=u+ ' ';
   rmax := 0;
    for i := 1 to length(u) do
       if (u[i] >= '0' ) and (u[i] <= '9') then tam := tam + u[i]
       else
          if length(tam) > 0 then
             begin
                val(tam,n);
                inc(k);
                c[k] := n;
                tam := '';
             end;
       for i := 1 to k do
          if rmax < c[i] then rmax := c[i];
       write(rmax)
end;
begin

   assign(input, 'no11.inp') ; reset(input);
   assign(output, 'no11.out') ; rewrite(output);
      readln(s);
      tach(s);
   close(input);close(output);

end.

var
   s,nen : String;
   dem,i : Longint;
   tam : String;
begin
   assign(input, 'no13.inp'); reset(input);
   assign(output, 'no13.out'); rewrite(output);

      readln(s);
      nen := '';
      dem := 1;
      for i := 1 to length(s) do
         if s[i] = s[i+1] then inc(dem)
         else
            begin
                str(dem,tam);
                nen := nen + s[i] + tam;
                dem := 1;
             end ;
      write(nen);

   close(input); close(output);
end.

var
        n : longint;

function tcs (u : longint) : longint;
var
        s : longint;
begin
        s := 0;
        while u > 0 do
                begin
                        s := s + (u mod 10);
                        u := u div 10;
                end;
        exit(s);
end;

begin 
        assign(input,'no1.inp'); reset(input);
        assign(output, 'no1.out'); rewrite(output);
                readln(n);
                writeln(tcs(n));
        close(input); close(output);
end.   

var
   n : longint;

function dcs (u : longint) : longint;
var
   s : longint;
begin
   s := 0;
   while u > 0 do
      begin
         u := u div 10;
         inc(s);
      end;
   exit(s);
end;

function scs (u : longint) : longint;
var
   res : longint;
   i : longint;
begin   
   res := 0;
   for i := 1 to u do
            res := res + dcs(i);
   exit(res);     
end;   

begin
   assign(input,'no2.inp'); reset(input);
   assign(output,'no2.out'); rewrite(output);
   
   readln(n);
   writeln(scs(n));

   close(input); close(output);
end.