Program Vklad2;
Var g: integer; s: real;
Begin
g:=0;      // 
s:=10000;  // 
writeln ('  ', s);
//   <=20000
while s<=20000 do 
  begin
  g:=g+1;       // 
  s:=s+0.1*s;   // 10%
  writeln (g, '   ', s:8:2);
  end;
End.
