Это спасет мою итоговую оценку

pascal

program triangle;

var

 x, y, z: integer;

begin

 Write('Введите стороны треугольника: ');

 ReadLn(x, y, z);

 if (x = y) or (x = z) or (y = z) then

   WriteLn('Данный треугольник равнобедренный!')

 else

   WriteLn('Данный треугольник не равнобедренный!');

end.