Задача 6 Урок 8.1

Задача 6 Урок 8.1

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

первое значение равно третьему и первое НЕ равно четвертому или четвертое равно третьему.

var a, b, c, d: string;
begin
  write('Введите строку 1: ');
  readln(a);
  write('Введите строку 2: ');
  readln(b);
  write('Введите строку 3: ');
  readln(c);
  write('Введите строку 4: ');
  readln(d);
  writeln('Получаем ', (a = c) and (a <> d) or (d = c));
  readln();
end. 

Вывод консоли:

Введите строку 1: 123
Введите строку 2: 123
Введите строку 3: 123
Введите строку 4: 123
Получаем TRUE