Тут через оператор case нужно указывать вручную, ну я пока что легких путей не вижу. Легкая программа, но замудренная..
Пример:
case a of
01.02.98 : writeln ('1 февраля тысяча девятьсот девяносто восьмой год');
02.02.98 : writeln (2 февраля тысяча девятьсот девяносто восьмой год');
Тут дата : writeln ('Тут что выводить');
итд
end;
Репетиция-это цикл. Т.е. ты повторяешь одно и тоже(оттачиваешь навыки).
(¬x → ¬z) ˅ y → (x → y) → ¬x ˅ ¬z = (заменяем импликацию)
(¬¬x ˅ ¬z) ˅ y → (¬x ˅ y) → ¬x ˅ ¬z = (закон двойного отрицания)
x ˅ ¬z ˅ y → (¬x ˅ y) → ¬x ˅ ¬z = (заменяем импликацию)
¬(x ˅ ¬z ˅ y)˅(¬x ˅ y)→ ¬x ˅ ¬z = (закон де Моргана)
(¬x ˄ ¬¬z ˄ ¬y ˅ ¬x ˅ y)→ ¬x ˅ ¬z = (закон двойного отрицания)
(¬x ˄ z ˄ ¬y ˅ ¬x ˅ y)→ ¬x ˅ ¬z = (правило поглощения ¬x ˄ z ˄ ¬y ˅ ¬x = ¬x)
(¬x ˅ y)→ ¬x ˅ ¬z = (заменяем импликацию)
¬(¬x ˅ y)˅ ¬x ˅ ¬z = (закон де Моргана)
(¬¬x ˄ ¬y)˅ ¬x ˅ ¬z = (закон двойного отрицания)
(x ˄ ¬y)˅ ¬x ˅ ¬z = (распределительный закон)
(x˅ ¬x ˄ ¬y˅ ¬x)˅ ¬z = (исключение третьего)
¬x ˅ ¬y ˅ ¬z