Помогите написать решение задачи в Pascal ABC

Найти среднее значение h при заданных условиях:

S = 0,001
h = n ∙ S ∙ Q2
n будет постепенно увеличиваться с 2 до 12 по одному

Q задать с клавиатуры.

Написал, ничего не получается, помогите исправить

Program poteri;
Const S=0.001;
Var A : array[2..12] of Real;
n, i: Integer;
h, Q : Real;
Begin {ввод количество рукавов n}
For n:=2 to 12 do
Begin Write('A[',i:1,']='); Readln(A);
End;
{вычисление среднего значения при заданных условиях}
For i:=1 to 4 do n:=n+A[i,i];
h = n ∙ S ∙ QQ
n:=n/4;
Writeln('Среднее значение потерь при заданных условиях h=', h:5:2);
End.