Задачка на нахождение

[Ximer]

Пусть даны три числа. Если они могут быть длинами сторон треугольника, определите его вид (прямоугольный, тупоугольный, остроугольный). Найдите углы треугольника (теорема косинусов).
P.S задачка наверное плёвая... Нужен просто пример решения на Pascal

[capta1n]

program pascall;
const
 a = 3;
 b = 4;
 c = 5;
 pi = 3.14;
var
 ficos,fisin,fi1,fi2,fi3 : real;
begin
  if (a<=0) or (b<=0) or (c<=0) or ((a+b)<=c)
  or ((a+c)<=b) or ((b+c)<=a) then writeln ('No!')
  else
  begin
    ficos:=(sqr(c)-(sqr(a)+sqr(b)))/(-2*a*b);
    fisin:=sqrt(1-sqr(ficos));
    if ficos=0 then fi1:=pi/2
               else fi1:=arctan(fisin/ficos);
    if fi1<0 then fi1:=pi+fi1;
    fi1:=57.296*fi1;

    ficos:=(sqr(a)-(sqr(b)+sqr(c)))/(-2*c*b);
    fisin:=sqrt(1-sqr(ficos));
    if ficos=0 then fi2:=pi/2
               else fi2:=arctan(fisin/ficos);
    if fi2<0 then fi2:=pi+fi2;
    fi2:=57.296*fi2;

    ficos:=(sqr(b)-(sqr(a)+sqr(c)))/(-2*a*c);
    fisin:=sqrt(1-sqr(ficos));
    if ficos=0 then fi3:=pi/2
               else fi3:=arctan(fisin/ficos);
    if fi3<0 then fi3:=pi+fi3;
    fi3:=57.296*fi3;

    writeln ('fi(1)= ',fi1:0:1,' grad');
    writeln ('fi(2)= ',fi2:0:1,' grad');
    writeln ('fi(3)= ',fi3:0:1,' grad')
  end;
  readln
end.