Program Vklad1;
Var g: integer; s: real;
Begin
s:=10000;  // 
writeln ('  ', s);
//  g  1  5
for g:=1 to 5 do 
  begin
  s:=s+0.1*s; // 10%
  writeln (g, '   ', s);
  end;
End.
