program IsEquilateralTriangle; var side1, side2, side3: integer; begin writeln('Enter the length of side 1: '); readln(side1); writeln('Enter the length of side 2: '); readln(side2); writeln('Enter the length of side 3: '); readln(side3); if (side1 = side2) and (side2 = side3) then writeln('The triangle is equilateral.') else writeln('The triangle is not equilateral.'); end.
var
side1, side2, side3: integer;
begin
writeln('Enter the length of side 1: ');
readln(side1);
writeln('Enter the length of side 2: ');
readln(side2);
writeln('Enter the length of side 3: ');
readln(side3);
if (side1 = side2) and (side2 = side3) then
writeln('The triangle is equilateral.')
else
writeln('The triangle is not equilateral.');
end.