uses crt;
var
   i,j,a,b,c,d,res:integer;
begin
     clrscr;
     a:=121;
     b:=0;
     c:=a;
     while c>9 do
           begin
                c:=c div 10;
                inc(b)
           end;
     for i:=0 to b do
         begin
              d:=1;
              for j:=1 to i do
                  d:=d*3;
              c:=a mod 10;
              res:=res+c*d;
              a:=a div 10;
         end;
     writeln(' ITOG= ',res);
     readkey
end.