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

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