Помогите решить задачу, очень срочно !!!
Дан произвольный треугольник ABC, для которого определен следующий набор характерных параметров: a,b,c - стороны треугольника, альфа, бета, гамма - углы (в градусах), h - высота, опущенная на сторону c, S - площадь, P - периметр треугольника. По заданным параметрам: h, c, альфа, вычислить все остальные. Записать в Паскале.

Program n1;var x,y,n,z,h,C:real;function arccos(x : real) : real;begin arccos := 2 * arctan(sqrt((1 - x) / (1 + x)));end;procedure ygls( a,b,c,t: real);var al,be,ga: real;begin al := arccos((sqr(b) + sqr(c) - sqr(a))/(2 * b * c)) * 180 / pi;writeln('угол A= ',trunc(al));writeln('угол B= ',trunc(180-al-t));end;beginwrite('введите сторону а: ');readln(x);write('введите сторону b: ');readln(y);write('введите угол С: ');readln(C);n:=C;C:=cos(C*180/pi);z:=sqrt(x*x+y*y-2*x*y*C);h:=0.5*sqrt(2*(x*x+y*y)-c*c);ygls(x,y,z,n);writeln('сторона c: ',trunc(z));writeln('высота h: ',trunc(h));writeln('периметр P: ',trunc(x+y+z));writeln('площадь S: ',trunc(z*h));end.