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

Решение задачи №4 из главы 7

Получите от пользователя значения три символьных значения, выясните -- равны ли все они друг другу и уведомьте о результатах сравнения пользователя, выведя итог в консоль.
Подсказка: для получения итогового результата нескольких сравнений используйте одну из логических операций.

var a, b, c: char; // секция объявления переменных
// в этих переменных мы сохраним полученные значения

begin  // начало тела программы

  //получим значения переменных от пользователя

  writeln('vvedite perviy simvol: ');
  readln(a);
  writeln('vvedite vtoroi simvol: ');
  readln(b);
  writeln('vvedite tretiy simvol: ');
  readln(c);

  writeln('otvet:', (a = b) AND (a = c));

  readln(); // удерживаем консоль

end. // конец тела программы