Var
 p:String;

Function Sum(D1,D2:String):String;
Var
 D1a,D2a,D3a,D3,Q:String;
 L,i,d,c1,c2,c3:Byte;
 Code:Integer;
Begin
 If Length(D1)>Length(D2) then
  begin
   L:=Length(D1);
   D1a:=D1;
   D2a:='';
   for i:=1 to (Length(D1)-Length(D2)) do D2a:=D2a+'0';
   for i:=(Length(D1)-Length(D2))+1 to Length(D1) do D2a:=D2a+D2[i-(Length(D1)-Length(D2))];
  end
 else
  begin
   L:=Length(D2);
   D2a:=D2;
   D1a:='';
   for i:=1 to (Length(D2)-Length(D1)) do D1a:=D1a+'0';
   for i:=(Length(D2)-Length(D1))+1 to Length(D2) do D1a:=D1a+D1[i-(Length(D2)-Length(D1))];
  end;
 D3a:='';
 d:=0;
 for i:=L downto 1 do
  begin
   Val(D1a[i],c1,Code);
   Val(D2a[i],c2,Code);
   if (c1+c2+d)<=1 then
    begin
     c3:=c1+c2+d;
     d:=0;
    end
   else
   if (c1+c2+d)=2 then
    begin
     c3:=0;
     d:=1;
    end
   else
   if c1+c2+d=3 then
    begin
     c3:=1;
     d:=1;
    end;
   Str(c3,Q);
   D3a:=D3a+Q;
  end;
 if d=1 then D3a:=D3a+'1';
 D3:='';
 for i:=1 to Length(D3a) do
  D3:=D3+D3a[Length(D3a)-i+1];
 Sum:=D3;
end;

Begin
 Write(' p: ');
 Readln(p);
 Writeln('3p: ',Sum(p,p+'0'));
 Readln
End.