Помогите решить задачу в паскале под цифрой 8 , пожалуйста. Заранее спасибо.

const  pi=3.14159265359;function Angle(x:real):real;{ возвращает угол в градусах по значению его синуса }begin  Angle:=ArcTan(x/Sqrt(1-x*x))*180/pi;end;var  a,b,c,h,alpha,beta,gamma,S,P:real;  begin  Writeln('Введите a,b,h: '); Read(a,b,h);  c:=Sqrt(a*a-h*h)+Sqrt(b*b-h*h);  P:=a+b+c;  S:=h*c/2;  alpha:=Angle(h/b);  beta:=Angle(h/a);  gamma:=180-alpha-beta;  Writeln('c=',c:0:5);  Writeln('alpha=',alpha:0:3,', beta=',beta:0:3,', gamma=',gamma:0:3);  Writeln('P=',P:0:5,', S=',S:0:5)end.ПримерыВведите a,b,h: 5 5 3c=8.00000alpha=36.870, beta=36.870, gamma=106.260P=18.00000, S=12.00000Введите a,b,h: 5 5 4c=6.00000alpha=53.130, beta=53.130, gamma=73.740P=16.00000, S=12.00000