Программа на Pascal

[hedgehod]

Написать программу выполняющие операторы S1, S2, S3 в зависимости от следующего условия:
IF ((A=B) AND (C>D)=TRUE OR NOT A)
THEN IF ((TRUE<>A) AND (C-D<3))
THEN S1
ELSE S2
ELSE S3;
где S1, S2, S3 процедуры вывода на экран дисплея поясняющей
информации о выполнении того или иного условного оператора.

Следует обратить внимание на ввод значений переменных типа BOOLEAN.
В языке программиравания Паскаль из стандартного файла ввода INPUT,
нельзя ввести значение переменной этого типа. Ввод значений этого
типа можно осуществить программно с помощью других типов, обычно CHAR.

A=True, B=False, C=10, D=7.
Можно использовать только if
Прошу помочь( Очень нужно на завтра.