CONST
 Path:STRING='D:\';
VAR
 f:TEXT;
 x,y,p:REAL;
 m:BYTE;
BEGIN
 Assign(f,Path+'input.txt');
 ReSet(f);
 ReadLn(f,x,y,p);
 Close(f);
 Assign(f,Path+'output.txt');
 ReWrite(f);
 m:=0;
 REPEAT
  x:=x*(1+p/1200);
  x:=1.0*ROUND(x*100)/100;
  m:=m+1;
 UNTIL x>y;
 WriteLn(f,m);
 Close(f);
END.

CONST
 Path:STRING='D:\';
VAR
 f,f1:TEXT;
 S:STRING;
 i:INTEGER;
 m,t:BYTE;
BEGIN
 Assign(f,Path+'input.txt');
 ReSet(f);
 Assign(f1,Path+'output.txt');
 ReWrite(f1);
 REPEAT
  ReadLn(f,S);
  If S='' then
   begin
    For i:=1 to 80 do Write(f1,' ');
    WriteLn(f1);
   end else
   begin
    t:=1;
    While S[t]=' ' do
     begin
      t:=t+1;
     end;
    t:=t-1;
    m:=(Length(S)-t) div 2;
    If Length(S) mod 2 = 1 then m:=m+1;
    For i:=1 to 40-m do Write(f1,' ');
    For i:=t+1 to Length(S) do Write(f1,S[i]);
    WriteLn(f1);
   end;
 UNTIL EoF(f);
 Close(f);
 Close(f1);
END.