Определить, является ли треугольник со сторонами a,b,c прямоугольным. Если нет, то вычислить больший угол.
Надо срочно и на паскале

Program abc;
Var a,b,c,i,n:integer;
begin
writeln(Введите А : );
read(a);
writeln(Введите B : );
read(b);
writeln(Введите C : );
read(c);
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c = a*a+b*b) then writeln( Треугольник прямоугольный) else
if (a>b) and (a>c) then writeln(Больший угол образован сторонами b и c) else
 if (c>a) and (c>b) then writeln(Больший угол образован сторонами b и a)  else
 if (b>a) and (b>c) then writeln(Больший угол образован сторонами a и c);
 end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.