посчитайте 15 поинтовc := 0;for i := 1 to 9 doif A[i] > A[4] thenbeginc := c + 1;end;