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

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

var 
    a, b, c: char;
    D: boolean;
begin
    writeln ('vvedite symboly');
    readln (a, b, c);
    D := (a=b)AND(b=c);
    writeln ('Ravny li symboly? ', D);
    readln ();
end.