Урок 8 задача 6

Урок 8 задача 6

Получите от пользователя четыре строковых значения, выведете на экран результат проверки условия:
""первое значение равно третьему и первое НЕ равно четвертому или четвертое равно третьему"".

program Project1;
var a,b,c,d: string;

begin
  writeln('Введи 4 строки через enter');
  readln(a);
  readln(b);
  readln(c);
  readln(d);
  writeln((a = c) and (a <> d) or (d = c));

  readln();
end.             

Консоль

Введи 4 строки через enter
12
34
2
2
TRUE