Составить программу

[Kattterina]

Помогите решить задачу!!!
Составить программу "Тригонометрический калькулятор", которая по заданным длинам сторон вычисляет углы и определяет, является ли треугольник остроугольным, прямоугольным, или тупоугольным. Длины сторон треугольника задать с клавиатуры, углы можно вводить в произвольном порядке.

[Z1000000]

http://www.programmersforum.ru/showt...EB%FC%ED%E8%EA

[Stilet]

Ада пойдет? Или на PL-1?

[Mad_Cat]

{pascal/delphi{Console}}
function GetAngle(a,b,c:real):Real;
var p:REal;
begin
  p:=(a+b+c)/2;
  result:=2*arctan(Sqrt((p-b)*(p-c)/(p*(p-a))))*180/pi;
end;
var st1,st2,st3:Real;
    u1,u2,u3:Real;
begin
   readln(st1,st2,st3);
   u1:=GetAngle(st1,st2,st3);
   u2:=GetAngle(st2,st3,st1);
   u3:=GetAngle(st3,st2,st1);
   writeln(u1:0:2,'  ',u2:0:2,' ',u3:0:2);
   if (u1=90) or (u2=90) or (u3=90) then
     Writeln('Прямоугольный') else
   if (u1>90) or (u2>90) or (u3>90) then
     Writeln('Тупоугольный')
   else Writeln('Остроугольный');
   readln;
end.