Программа на Pascal ABC.

[Lols]

Ребят помогите решить программу на pascal ABC.
1. Составьте программу, которая определяла бы вид треугольника (равносторонний, равнобедренный, разносторонний, прямоугольный, тупоугольный, остроугольный), если по данным трем отрезкам его можно построить.
P.S. Буду очень благодарен.

[Mad_Cat]

var a,b,c:integer;
cosa,cosb,cosc:real;
begin
write('введите строну a = ');
readln(a);
write('введите строну b = ');
readln(b);
write('введите строну c = ');
readln(c);
cosa:=(sqr(b)+sqr(c)-sqr(a))/(2*b*c);
cosb:=(sqr(a)+sqr(c)-sqr(b))/(2*a*c);
cosc:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b);
writeln;
Writeln('ТРЕУГОЛЬНИК:');
WRITELN;
If c-b-a>=0 Then begin writeln('ТАКОЙ ТРЕУГОЛЬНИК НЕ СУЩЕСТВУЕТ'); exit end;
If b-c-a>=0 Then begin writeln('ТАКОЙ ТРЕУГОЛЬНИК НЕ СУЩЕСТВУЕТ'); exit end;
If a-b-c>=0 Then begin writeln('ТАКОЙ ТРЕУГОЛЬНИК НЕ СУЩЕСТВУЕТ'); exit end;
    If a-b=0 then if c-0=a then writeln('РАВНОСТРОННИЙ');
if a-b=0 then if c-0-a<>0 then writeln('РАВНОБЕДРЕННЫЙ');
if a-c=0 then if b-0-a<>0 then writeln('РАВНОБЕДРЕННЫЙ');
if c-b=0 then if a-0-c<>0 then writeln('РАВНОБЕДРЕННЫЙ');
    if a<>b then if a<>c then if b<>c then  writeln('РАЗНОСТОРОННИЙ');
if cosa>0 then if cosb>0 then if cosc>0 then Writeln('ОСТРОУГОЛЬНЫЙ');
if cosa=0 then Writeln('ПРЯМОУГОЛЬНЫЙ');
if cosb=0 then Writeln('ПРЯМОУГОЛЬНЫЙ');
if cosc=0 then Writeln('ПРЯМОУГОЛЬНЫЙ');
if cosa<0 then writeln('ТУПОУГОЛЬНЫЙ');
if cosb<0 then writeln('ТУПОУГОЛЬНЫЙ');
if cosc<0 then writeln('ТУПОУГОЛЬНЫЙ');
end.