(X<4) & (X>2) & (X≠2) нужна таблица истинности !

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

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

Недостатки:
- отсутствие реакции на необычные ситуации
- отсутствие контроля процесса выполнения
- ограниченность круга задач с автоматической проверкой (как правило, тестами)
- недостаток "креативных" задач

Программа поиска элемента в произвольном массиве:
const n=10;
var a:array[1..n+1] of integer;
p,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:4);
 end;
writeln;
write('p = '); readln(p);
a[n+1]:=p;
i:=1;
while a[i]<>p do i:=i+1;
if i<=n
 then writeln('Искомый элемент найден, его номер = ',i)
 else writeln('Искомый элемент не найден');
end.

Пример 1:
Исходный массив:
   7  17  16  13   0   1  19  20  12   5
p = 13
Искомый элемент найден, его номер = 4

Пример 2:
Исходный массив:
  20   4   5  12  14  10  11  16  18  20
p = 15
Искомый элемент не найден