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

Program Boolean30;

Var
  a, b, c: Real;

Begin
  ReadLn(a, b, c);
  WriteLn((a = b) And (b = c) And (a = c));

end.