{uses crt;}
var
i:integer;
k,s:real;
begin
k:=10;
for i:=1 to 7 do begin
writeln(i,'  ',k);
s:=s+k;
k:=1.1*k;
end;
{readkey;}
write('s=',s)
end.