Ответ: program test;var i,n:integer;x: array [1..10] of integer;beginfor i:=1 to 10 dobeginx[i]:=sqr(i)+5;writeln(‘X[‘,i,’] = ‘,x[i]);end;end.