Состтавьте программу которая вводит с клавиатуры стороны треугольника и определяет является ли треугольник равносторонний

Program a;

var x, y, z:real;

begin

write ('Введите стороны->>');

read (x, y, z);

if (x=y) and (y=z) then

write ('Треугольник равносторонний') else

write ('Треугольник не равносторонний');

end.