var x,s:real;
n,i: integer;

begin
write('x=?');read(x);
write('n=?');read(n);
for i:=1 to n do begin
s:=s+x;
x:=1.12*x;
end;
write('     s=',s);
end.