program Vozrasr;
var
AGE: integer;//Переменная возраста
begin
writeln('Введите любое число от 1 до 120');
Readln(AGE); //Ввод возраста
if (AGE < 1) or (AGE > 120) then
begin
writeln('ERROR!')
end
else
begin
case AGE of //для чисел от 11 до 20 создаем отд-ый кейс
11..20: Writeln('ответ: Мне ', AGE, ' лет');
Else //иначе если они не входят в диапазон от [11..20], то выполняется второй кейс
begin
case AGE mod 10 of //делим на 10 и получаем остаток =
1: Writeln('ответ: Мне ', AGE, ' год');
2..4: Writeln('ответ: Мне ', AGE, ' года');
0, 5..9: Writeln('ответ: Мне ', AGE, ' лет');
end;
end;
end;
end;
end.
ответ: 
.
Пошаговое объяснение:
Во-первых, как можно заметить, от C значение функции не зависит.
Особенно это хорошо видно на последних двух строчках. Если убрать переменную C, то получиться таблица из 4 строк:
A B F
0 0 1
0 1 1
1 0 1
1 1 0
Это таблица истинности для отрицания И: 
- ответ.
На этом можно было бы остановиться (проверить по таблице истинности с учётом бесполезного С), но сделаем ещё кое-что - выведем это шаг за шагом, докажем, что С - бесполезная и никому не нужная переменная.
Запишем то же выражение в совершенной конъюнктивной нормальной форме. Выберем стоки, которые обращают выражение в Ложь.
A B C F
1 1 0 0
1 1 1 0
Две строки - две скобки. Единица в таблице означает отрицание переменной в скобке. Получаем 
.
Тут уже видно, что переменная С на результат не влияет. Упростим и приведём это к выражению выше.
![= \overline A \lor \overline B \lor [(\overline B \land \overline A) \lor (\overline A \land \overline B)] \lor [(\overline C \land \overline A) \lor(\overline A \land C)] \lor [(\overline C \land \overline B) \lor (\overline B \land C)] =](/tpl/images/1360/3469/09f19.png)
![= [(\overline A \lor \overline A) \land (\overline A \lor \overline B)] \lor \overline B =](/tpl/images/1360/3469/ce0d8.png)
![= [\overline A \land (\overline A \lor \overline B)] \lor \overline B =](/tpl/images/1360/3469/cc585.png)
- ответ.
