var x,s:real;
i: integer;

begin
x:=10;
s:=0;
for i:=1 to 7 do begin
s:=s+x;
x:=1.10*x;

end;
write('     s====',s:2:2);
end.