var x,s:real;
i: integer;

begin
write('Доход за год x=?');read(x);

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