Вычисление длины наибольшей высоты треугольника

uses crt;
var S,a,U,b,H,Z:real;
begin
clrscr;
write('Введите площадь равнобедренного треугольника равна ');
readln(S);
write('Введите величину угла при вершине');
readln(U);
a:=sqrt(S/sin(U));
S:=a*a*sin(U);
b:=sqrt(a*a+a*a);
H:=sqrt(a*a-(b*b/4));
Z:=b*H/a;
writeln (H);
readln;
end.

uses crt;
var S,a,U,b,H,Z:real;
begin
clrscr;
write('Введите площадь равнобедренного треугольника равна ');
readln(S);
write('Введите величину угла при вершине ');
readln(U);
U:=U*pi/180;{переведем в радианы}
a:=sqrt(2*s/sin(U));{длина боковой стороны}
Z:=2*S/a; {высота на боковую сторону}
U:=(pi-U)/2;{угол при основании}
b:=Z/sin(U);{основание}
H:=2*S/b;{высота на основание}
if H>Z then writeln ('H=',H:0:2)
else writeln ('Z=',Z:0:2);
readln;
end.

var
  a, S, h, b: real;
  
begin
  a := 30;
  S := 18;
  a := pi * a / 180; 
  b := sqrt(2 * S / sin(a)); //боковая сторона
  h := 2 * S / b; //высота, проведенная к боковой стороне
  if h < b * cos(a / 2) then h := b * cos(a / 2);
  write('Наибольшая высота: h = ', h:0:2)
end.