Решение задачи №5

Решение задачи №5 из главы 7

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

var a, b, c, d: char; // секция объявления переменных
// в этих переменных мы сохраним полученные значения

begin  // начало тела программы

  //получим значения переменных от пользователя
  writeln('vvedite perviy simvol: ');
  readln(a);
  writeln('vvedite vtoroi simvol: ');
  readln(b);
  writeln('vvedite tretiy simvol: ');
  readln(c);
  writeln('vvedite cetvertii simvol: ');
  readln(d);
  writeln('otvet:', (a = c) AND (a <> b) OR (c=d));
  readln(); // удерживаем консоль
end. // конец тела программы