Проверить истинность высказывания: «Треугольник со сторонами a, b, c является равносторонним»

Program Boolean30;
Var
a,b,c:Real;
Begin
ReadLn(a,b,c);
WriteLn((a = b) And (b = c) And (a = c));
end.

автор: Sklyarov Sergej a.k.a. S9