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

Решение задачи №6 из главы 8

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

var a, b, c, d: string; // секция объявления переменных

begin  // начало тела программы
    writeln('vvedite pervuy stroku: ');
    readln(a);
    writeln('vvedite vtoruy stroku: ');
    readln(b);
    writeln('vvedite tretiu stroku: ');
    readln(c);
    writeln('vvedite tretiu stroku: ');
    readln(d);
    writeln('Vivodim resultat sravnenia: ');
    writeln((A=C)and(A<>D)OR(D=C));
    readln(); // удерживаем консоль
end. // конец тела программы