Create a program for classifying triangles by its sides (instead of angles, the input data are the sides of a triangle a, b, c.)

program zz1;
var
a, b, c: real; // set variables of non-integer type
begin
write (‘enter the first side of the triangle’);
read (a); // enter the first side of the triangle from the keyboard
write (‘enter the second side of the triangle’);
read (b); // enter the second side of the triangle from the keyboard
write (‘enter the third side of the triangle’);
read (c); // enter the third side of the triangle from the keyboard
if (a = c) or (a = b) or (c = a) then write (‘isosceles triangle’); // check the sides and display the answer
if (a = c) and (a = b) and (c = a) then write (‘equilateral triangle’);
if (a <> c) and (a <> b) and (c <> a) then write (‘versatile triangle’);
end.