Определить является ли треугольник прямоугольным , если известны три стороны.(с ветвлением)

не знаю паскаля

Осталось отформатировать

Не могу знать. Я уже сообщал рецепт всем по-моему: пользоваться Мозиллой.

Спасибо, не видел. Буду знать теперь

a,b,c стороныесли a^2=b^2+c^2то прямоугольныйиначе если b^2=a^2+c^2то прямоугольныйиначе если c^2=a^2+b^2то прямоугольныйиначе не прямоугольный

var a,b,c:Integer; Begin    Write('Введите длину 1 катета: '); Readln(a);    Write('Введите длину 2 катета: '); Readln(b);    Write('Введите длину гипотенузы: '); Readln(c);    if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then         Begin             if (sqr(c)=sqr(a)+sqr(b)) then               Writeln('Треугольник прямоугольный')            else               Writeln('Треугольник другого типа');       end    else       Writeln('Треугольник не существует');END.