uses crt;
var
a, i, j,c: integer;
b:real;
mas: array [1..100] of integer;
begin
mas[1]:= 100;
mas[2]:= 100;
for j:= 2 to 15 do   begin
  mas[j]:=mas[j-1]+mas[j-1]; b:= mas[j]/1000;   end;

  writeln (b:10:1,' kg');
readkey;
end.