uses crt;
var x,i,size,more,less,mid:integer;
a:array[1..10000] of integer;
begin
CLrscr;
writeln('Введите размер массива');
readln(size);
writeln('Введите элементы массива');
FOR i := 1 TO size do
begin
readln(a[i])
end;
writeln('Введите число x');
readln(x);
FOR i := 1 TO size do
begin
IF a[i] > x THEN more := more + 1;
IF a[i] < x THEN less := less + 1;
IF a[i] = x THEN mid := mid + 1;
end;
writeln('Больше числа Х в массиве элементов ',more);
writeln('Меньше числа Х в массиве элементов ',less);
writeln('Равных числу Х в массиве элементов ', mid);
end.