Дан массив целых чисел

var a: array[1… 10]of integer; i,n1,n2: integer; s: real; beginfor i: =1 to 10 do beginreadln (a[i]); s: =s+a[i]; end; s: =s/10; for i: =1 to 10 do beginif a[i]>s then inc (n1); if a[i]