Помогите пж, информатика
Даны 3 числа a,b,c, составить программу, определяющую, существует от треугольник со сторонами a,b,c, и если существует, то является ли он прямоугольным, тупоугольным, остроугольным

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!begin  var (a,b,c):=ReadReal3('Введите стороны треугольника:');  if (a+b>c) and (a+c>b) and (b+c>a) then begin    var alpha:=ArcCos((b*b+c*c-a*a)/(2*b*c));    var beta:=ArcCos((a*a+c*c-b*b)/(2*a*c));    var gamma:=Pi-alpha-beta;    var max:=Max(Max(alpha,beta),gamma);    var d:=max-Pi/2;    if abs(d)<=1e-12 then Writeln('Треугольник прямоугольный')    else if d<0 then Writeln('Треугольник остроугольный')    else Writeln('Треугольник тупоугольный')    end  else Writeln('Треугольник не существует')end.ПримерыВведите стороны треугольника: 3.54 5.18 8.32Треугольник тупоугольныйВведите стороны треугольника: 30 40 50Треугольник прямоугольный