Урок 7 Задача 4

Урок 7 Задача 4

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

program u7z4;

var a,b,c: char;


begin

  writeln('vvedite simvol a');
  readln(a);
  writeln('vvedite simvol b');
  readln(b);
  writeln('vvedite simvol c');
  readln(c);


  writeln('a = b = c ' ,(a = b) and (b=c));
  readln();

end.