Найдите количество превышающих 4 в паскале

Begin
 var a:=ArrRandom(10, -10,10);
 a.Println();
 writeln(a.Where(x->x>4).Count);
end.

// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadArrInteger(ReadInteger('n=')).Where(x->x>4).Count)
end.

Пример
n= 5
3 7 0 -5 9
2

Відповідь:

Закон поглощения – это закон математической логики, согласно которому верны следующие равенства: Закон склеивания. Логическая операция, в процессе которой два члена формулы, имеющие одинаковую часть, заменяются одним членом, как бы склеиваются, носит название закон склеивания. Пусть имеется сложное высказывание. ... Например: «Неверно, что завтра будет холодно и завтра будет дождливо, если и только если завтра не будет холодно или завтра не будет дождливо». Другой закон: неверно, что А и В, если и только если неверно А и неверно В.

Пояснення:

IP-адрес состоит из целых чисел, разделённых точками, причём эти числа не должны превышать 255.

Так как только перед числом 30 (Б) стоит точка, то оно должно стоять в конце, ведь иначе из него будут получаться числа, которые больше 255.

С Г начинать мы тоже не можем, ибо при присоединении к нему А или Б будет число, превышающее 255. 

Если начинать с А, то к ней нужно будет присоединять Г (ибо при остальных вариантах будет > 255). Так как В на последней позиции, то придётся совмещать Г и Б, а тогда получается слишком большое число.

Значит, начинаем с Б.

Получается, возможен только 1 вариант: 222.125.121.30 (БАГВ).