Даны три угла треугольника необходимо определить какой вид имеет треугольник прямоугольный, тупоугольный, остроугольный. Сделайте для паскаля, информатика

And (a > c) then Begin max:=a; min1:=b; min2:=c; end else if (b>a) and (b>c) then Begin max:=b; min1:=a; min2:=c end else Begin max:=c; min2:=a; min2:=b; End; if (sqr (max) = sqr (min1) + sqr (min2)) then Writeln ('Треугольник прямоугольный') else if (sqr (max)