Урок 7 Char символьный тип данных Задача №5

Урок 7 Задача №5

Получите от пользователя значения четырёх символьных значения, выясните -- выполняется ли следующее условие:
"Первая переменная равна третьей, не равна второй или третья равна четвертой"
Составьте по указанному условию логическое выражение и выведите его результат на экран.

Program LessonPascal;

var a, b, c, d : char;  // Объявление переменных символьного типа
begin // Начало программы
 writeln('Enter simbol a: '); // Запрос у пользователя на ввод символа
 readln(a); // Ввод символа пользователем
 writeln('Enter simbol b: ');
 readln(b);
 writeln('Enter simbol c: ');
 readln(c);
 writeln('Enter simbol d: ');
 readln(d);
 writeln((a = c) and (a <> b) or (c = d)); // Вывод булевого результата

 readln();  // Удержание консоли
end.// Завершение программы