Используется оператор for i: = 1 to 30 do… после завершения выполнения тела цикла i =

ответ:

будет равно 30, оно же никуда не денется

var a,s,an: real;

i,n: integer;

begin

  read(a,n);

  an: =1;

  for i : = 0 to (n+1) do

      s: =s+an;

      an: =an*(-a);

  end;

  writeln(s);

end.

var myaf: array[0..30] of double;