Урок 8. Строковый тип данных String. Задание № 6.

Урок 8. Строковый тип данных String. Задание №6.

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

Program LessonPascal;

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

begin // Начало программы

  writeln('Enter string: '); // Запрос у пользователя на ввод строки

  readln(a); // Ввод строки символа пользователем

  writeln('Enter string: ');

  readln(b);

  writeln('Enter string: ');

  readln(c);

  writeln('Enter string: ');

  readln(d);

  writeln('Result = ', (a = c) and (a <> d) or (d = c)); // Вывод булевого результата

  readln(); // Удержание консоли

end.// Завершение программы