Ваша ошибка в том, что Вы в качестве счетчика цикла использовали переменную, тип которой не является порядковым. Об это Вы и получили сообщение.
К сожалению, Вы не привели исходного задания.
Ваш алгоритм, если бы даже Вы указали в счетчике цикла переменную допустимого типа, нерабочий. Вы строите накопление суммы в переменной х - и одновременно принудительно пытаетесь менять её значение.
uses System;
var i:integer;
begin cls;
for i:=1 to 10 do
writeln(' 3 v stepeni ',i ,' = ',power(3,i) );
readln;
end.
Var summ:integer;
begin
var a := Arr(1,2,3,4,5,6,7,8,9);
for var i:=0 to 8 do begin
write('[',a[i],'] ');
end;
writeln('');
for var i:=0 to 8 do begin
if (i mod 2)=1 then begin
summ:=summ+a[i];
write('[',a[i],'] ');
end;
end;
writeln('summa = ',summ);
<span>end.</span>
