Ответы и объяснения

2013-12-22T22:23:55+04:00
Uses crt;
var N,i: integer; S,x: real;
begin
clrscr;
x:=0.09;
readln (S);
readln (N);
for i:=1 to N do
S:=S+S*x;
writeln (S);
readln ();
end.