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

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

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

program u8z6;
var
  a,b,c,d: string;
  begin
    writeln('vvedite a');
    readln(a);
    writeln('vvedite stroky b');
    readln(b);
    writeln('vvedite stroky c');
    readln(c);
    writeln('vvedite stroky d');
    readln(d);
    writeln('a = c and a <> d or d ravno c ', (a = c) and (a<>d) or (d = c));
    readln();

  end.   

Консоль:

vvedite a
1
vvedite stroky b
2
vvedite stroky c
1
vvedite stroky d
5
a = c and a <> d or d ravno c TRUE