упростить выражение: ¬(¬AVB)V¬C

завтра экзамен вроде написала а не работает
не проходите мимо кто знает паскаль пожалуйстаvar integer:n; begin string:= writeln; ('Добро пожаловать в мою программу по сочетанию цветов!') if st:=Белый then n:=('сочетается со всем. Наилучшее сочетание с синим, красным и черным.') if st:=Бежевый then n:=('с голубым, коричневым, изумрудным, черным, красным, белым. ') if st:=Серый then n:=('базовый цвет, хорошо сочетается с капризными цветами: фуксия, красный, фиолетовый, розовый, синий. ') if st:=Розовый then n:=('с коричневым, белым, цветом зеленой мяты, оливковым, серым, бирюзовым, нежно - голубым. ') if st:=Фуксия (темно – розовый) then n:=('с серым, желто-коричневым, зеленым лаймом, зеленой мятой, коричневый. ') if st:=Красный then n:=('подходит к желтым, белым, бурым, зеленым, синим и черным. ') if st:=Томатно – красный then n:=(' голубой, зеленая мята, песчаный, сливочно – белый, серый. ') if st:=Вишнево-красный then n:=('лазурный, серый, светло-оранжевый, песчаный, бледно-желтый, бежевый. ') if st:=Малиново-красный then n:=('белый, черный, цвет дамасской розы. ') if st:=Коричневый then writeln('ярко-голубой, кремовый, розовый, палевый, зеленый, бежевый. ') if st:=Светло-коричневый then n:=('бледно-желтый, кремово-белый, синий, зеленый, пурпурный, красный. ') if st:=Темно-коричневый then n:=('лимонно-желтый, голубой, зеленая мята, пурпурно-розовый, зеленый лайм. ') if st:=Рыжевато-коричневый then n:=('розовый, темно-коричневый, синий, зеленый, пурпурный. ') if st:=Оранжевый then n:=('голубой, синий, лиловый, фиолетовый, белый, черный') if st:=Светло – оранжевый then n:=(' серый, коричневый, оливковый. ') if st:=Темно –оранжевый then n:=(' бледно – желтый, оливковый, коричневый, вишнёвый. ') if st:=Желтый then n:=('синий, лиловый, светло-голубой, фиолетовый, серый, черный. ') if st:=Лимонно-желтый then n:=('вишнево-красный, коричневый, синий, серый. ') if st:=Бледно-желтый then n:=('фуксия, серый, коричневый, оттенки красного, желтовато-коричневый, синий, пурпурный. ') if st:=Золотисто-желтый then n:=('серый, коричневый, лазурный, красный, черный. ') if st:=Светло – зеленый then n:=('золотисто-коричневый, коричневый, розовый, темно-оранжевый, темно-синий, серый. ') if st:=Оливковый then n:=('апельсиновый, светло-коричневый, коричневый. ') if st:=Зеленый then n:=('золотисто-коричневый, оранжевый, салатный, желтый, коричневый, серый, кремовый, черный, сливочно-белый. ') if st:=Салатный цвет then n:=('коричневый, желтовато-коричневый, палевый, серый, темно-синий, красный, серый. ') if st:=Бирюзовый then n:=('фуксия, вишнево-красный, желтый, коричневый, кремовый, темно-фиолетовый. ') if st:=Голубой then n:=('красный, серый, коричневый, оранжевый, розовый, белый, желтый. ') if st:=Темно-синий then n:=('светло-лиловый, голубой, желтовато-зеленый, коричневый, серый, бледно-желтый, оранжевый, зеленый, красный, белый. ') if st:=Лиловый then n:=('оранжевый, розовый, темно-фиолетовый, оливковый, серый, желтый, белый. ') if st:=Темно-фиолетовый then n:=('золотисто-коричневый, бледно-желтый, серый, бирюзовый, зеленая мята, светло-оранжевый. ') if st:=Черный then n:=('Черный универсален, элегантен, смотрится во всех очетаниях, лучше всего с оранжевым, розовым, салатным, белым, красным, сиреневатым или желтым.')end.

Помогите

7. Три ученика из разных школ на вопрос, в какой школе учатся, ответили:
Артем: я учусь в школе №534, а Кирилл - в школе №76
Кирилл: я учусь в школе №534, а Артем - в школе №105
Максим:я учусь в школе № 534, а Артем - в школе №76
Каждый из них сказал правду и один из раз солгал. В каких школах учатся Артем, Кирилл, Максим??
Люди напишите решение пожалуйста,

1) не(не А или В или С) или А и не (В и С)
2). не(А и В или не (А и В)) и не( не А и не В или А и не В)
3). (А либо В) и (В либо С)
2. Определить, на каких наборах логических переменных, функция принимает значение "истина" (построить таблицу истинности). Ответ записываем в следующем формате, например, (0, 0, 0), (0, 1, 1).
F(x, y, z) = (xy + xz + yz) х