Что тут не так? Ошибка "Индекс находится за границами массива".

uses PT4; var a:array[1…5] of integer; n,x:integer; begin Task(‘Array1’);

x:=1; readln(n); for var i:=1 to n do begin a[i]:=x+2; x+=2; end; print(a);

end.

у вас a:array[1…5]

n оказалось больше, чем 5.