Найти сумму первых k элементов массива А (20); сколько чисел массива не превышает среднее значение суммы n элементов массива

Pascal: var k, n, s, d, i, u, s1:integer; a:array[1 ... 20] of integer; begin randomize; readln (k, n); for i:=1 to 20 do a[i]:=random (10); for i:=1 to n do begin s:=s+a[i]; inc (u); end; writeln ('Среднее арифметическое в массиве = ', s/u); for i:=1 to k do s1:=s1+a[i]; writeln ('Сумма:', s1); for i:=1 to 20 do if a[i]