В массиве X (n) найти среднее арифметическое тех элементов значения которых не превышают заданную величину А

program mas; uses crt; var X:array[1 ... 100] of integer; i, n, A, k, s:integer; s1:real; begin clrscr; write ('Введите количество элементов массива n = '); readln (n); writeln ('Введите элементы массива'); for i:=1 to n do begin write ('Х[', i,'] = '); readln (X[i]); end; write ('Введите заданное число А = '); readln (A); k:=0; for i:=1 to n do if (X[i] < = A) then begin s:=s+X[i]; k:=k+1; end; S1:=S/k; writeln ('среднее арифметическое = ', s1); readln; end.