Информатика help me10 класс информатика, помогите умоляюююююююююююююююююююююююююююю

№2
Правильно будет :
Program first;
Var X:array [1..8] of integer;
Z,i:integer;
begin
for i:=1 to 8 do
X[i]:=i*i;
Z:=X[1]+X[4];
write(Z);
end.
Выведено будет : 17

№3
D - вычисляет сумму положтельных елементов масива

№1
25