Для каких из указанных значений числа Yистинно высказывание: (Y>10) И (Y<15) И (Y≠12)

Var abcd,a,b,c,d:integer;
begin
   abcd:=4579;
   a:=abcd div 1000; 
  b:=abcd div 100 mod 10;
   c:=abcd div 10 mod 10; 
  d:=abcd mod 10;
   Writeln(a,b,c,d);
   Writeln(a,c,b,d);
   Writeln(b,a,c,d);
   Writeln(b,c,a,d); 
  Writeln(c,a,b,d); 
  Writeln(c,b,a,d);
   Writeln(a,d,b,c); 
  Writeln(a,d,c,b);
   Writeln(b,d,a,c);
   Writeln(b,d,c,a);
   Writeln(c,a,d,b);
   Writeln(c,b,d,a);
   Writeln(a,b,d,c);
   Writeln(a,c,d,b); 
  Writeln(d,b,a,c); 
  Writeln(d,b,c,a); 
  Writeln(d,c,a,b); 
 Writeln(d,c,b,a); 
  end.
Громозко, да? Я не помню, как делать это через функцию. Думаю, и так сойдет.

1. Путь решения

Поскольку среднее всех введенных чисел нельзя найти, пока не будет закончен ввод этих чисел, а затем каждое число нужно будет сравнивать с этим средним, введенные числа придется где-то хранить. Например, в массиве длиной 100 (в условии сказано, что количество чисел "до 100").
Считаем, что описан массив a[1..100] и в нем находятся n≤100 целых чисел (можно и нецелых, но раз ничего не сказано в условии, мы вправе решить это сами).
Тогда среднее определится по формуле:

а сумму мы умеем считать, накапливая значение в цикле со счетчиком, дающем проход по всем элементам массива.
Искомое количество чисел, меньших среднего - это тоже сумма, найти которую позволит еще один цикл, но в нем уже будет анализ условия.


2. Программа на языке Pascal

const
  nn=100;
var
  i,n,k,s:integer;
  m:real;
  a:array[1..nn] of integer;
begin
  Write('Количество чисел равно '); Read(n);
  Writeln('Введите числа:');
  s:=0;
  for i:=1 to n do begin Read(a[i]); s:=s+a[i] end;
  m:=s/n;
  k:=0;
  for i:=1 to n do
    if a[i]<m then Inc(k);
  Writeln('Количество чисел, превышающих среднее значение, равно ',k)
end.

3. Пример работы программы

Количество чисел равно 10
Введите числа:
6 -4 11 -7 5 7 0 3 5 -2
Количество чисел, превышающих среднее значение, равно 4