Помогите!!!!!!! пожалуйста!!!!!!!!!!!!!!!!!!

Question

Помогите!!!!!!! пожалуйста!!!!!!!!!!!!!!!!!!

---

Answer 1

Program treygol;
Var a,b,c:Integer;
Begin
   write('Введите стороны треугольника через пробел: ');
   read(a,b,c);
    if (a=b) or (a=c) or (b=c) then writeln('Треугольник равнобедренный !')                                              else writeln('Треугольник не равнобедренный');
end.