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

Program a;
var x,y,z:real;
begin
write ('Введите стороны->>');
read(x,y,z);
if (x=y) and (y=z) then
write ('Треугольник равносторонний') else
write ('Треугольник не равносторонний');
end.