Работа с паскалем. достаточно . даны 3 стороны a, b, c. написать программу, с которой будет выведено на экран тип треугольника (треугольник нельзя построить, равнобедренный, равносторонний, прямоугольный или разносторонний)

Program pr; uses crt;   var  a,b,c: integer;   begin    write('введите 1-ю сторону: '); readln(a);     write('введите 2-ю сторону: '); readln(b);     write('введите 3-ю сторону: '); readln(c);       {проверка на существование треугольника}  if ((a+b)> c) and ((a+c)> b) and ((b+c)> a)     then               begin                                    if ((a=b)or (b=c) or (a=c)) then                                  writeln('треугольник равнобедренный');                                       if ((a=b) and (b=c)) then                              writeln('треугольник равносторонний')                            else writeln('треугольник разносторонний');                         if ((a*a+b*b = c*c) or (a*a+c*c = b*b) or (b*b+c*c = a*a))    then               writeln('треугольник прямоугольный');                               end        else        writeln('треугольник нельзя построить');       readln();   end.

Якому павучку? может скинешь хотя бы фотку?