Создать программу языком Delphi
(мне только нужен сам код)
Визначити за данними сторонами , чи являється трикутник рівностороннім.

Предыдущий
вопрос Следующий
вопрос

program IsEquilateralTriangle;
uses
SysUtils;
var
side1, side2, side3: Integer;
begin
WriteLn('Enter the length of the first side: ');
ReadLn(side1);
WriteLn('Enter the length of the second side: ');
ReadLn(side2);
WriteLn('Enter the length of the third side: ');
ReadLn(side3);
if (side1 = side2) and (side2 = side3) then
WriteLn('The triangle is equilateral.')
else
WriteLn('The triangle is not equilateral.');
end.

Введите длины трех сторон треугольника, чтобы программа определила, является ли треугольник равносторонним.