Неподскажите в чём трабла?

[Samopal]

Треугольник задан длинами сторон. Найти углы треугольника?
и даны три формулы. они в программе:

program kont;
uses crt;
var a,b,c: integer;
p,al,bt,gm: real;
begin
clrscr;
writeln('Vvedite storony A:' );
readln(a);
writeln('Vvedite storony B:' );
readln(b);
writeln('Vvedite storony C:' );
readln(c);
p:=(a+b+c)/2;
al:=2*arctan(sqrt(((p-b)*(p-c))/p*(p-a)));
bt:=2*arctan(sqrt(((p-a)*(p-c))/p*(p-b)));
gm:=2*arctan(sqrt(((p-b)*(p-a))/p*(p-c)));
writeln('Ugol A:', al);
writeln('Ugol B:', bt);
writeln('Ugol C:', gm);
readln;
end.

Некаторые данные прохзодят, например когда ввоже 3,4,5 прграмма считает и почему то выдаёт на всех 3 углах одинаковые числа..
Введу чёнибудь побольше прорамма выдаёт ошибку: 207 Invalid floating point operation
помогите пожалусто

[Vigour]

Проще через векторы искать углы.

[Samopal]

незнаю, может и проще, но по условию задачи надо пользоваться этими формулами...

В принципе я уже во всём разобрался сам так что темку можно закрывать удалять ли что там у вас... вот.. вообщем всем спасибо.!