Question

Помогите пожалуйста! Нужно полное решение!
Var k, score: integer;
A: array[1..9] of integer;
Begin
A[1]:=6;A[2]:=11;
A[3]:=7;A[4]:=12;
A[5]:=13;A[6]:=5;
A[7]:=9;A[8]:=3;
A[9]:=4;
score := 0;
for k := 1 to 9 do
if A[k] >= 9 then
begin
score := score + A[k];
end;
writeln(score);
End.
25 баллов даю