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

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