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

var s, al, a, b, c, l1, l2, ppr:real;
begin
 write('Площадь равна: ');
 readln(s);
 write('Угол при основании равен: ');
 readln(al);
 b:=sqrt((4*s)/tan(al));
 c:=sqrt((s*(1+(tan(al)*tan(al))))/tan(al));
 a:=sqrt((b*b)+(c*c)-2*b*c*cos(al));
 l1:=(b*tan(al))/2;
 ppr:=0.5*(a+b+c);
 l2:=(2/(b+c))*sqrt(b*c*ppr*(ppr-1));
 writeln('Длина наименьшей биссектрисы треугольника равна: ', min(l1,l2));
end.

var h, m, resh, resm:real;
i, n:integer;
a, b, c:string;
e:char;
begin
 writeln('Введите H');
 readln(h);
 writeln('Введите M');
 readln(m);
 n:=1;
 str(h,a);
 str(m,b);
 while c<>b do
 begin
  while e<>b[n] do
  begin
   e:=chr(ord(e)+1);
  end;
  i:=i+1;
  c:=c+e;
  n:=n+1;
 end;
 writeln('На преобразование числа H в число, обратное M, уйдет ', (i+1), ' перестановок.');
end.

var h, m:real;
i, n:integer;
a, b, c, s, d:string;
e:char;
begin
 writeln('Введите H');
 readln(h);
 writeln('Введите M');
 readln(m);
 n:=1;
 str(h,a);
 str(m,b);
 foreach s in b.Split(' ') do 
 d:=(ReverseString(s));
 while c<>d do
 begin
  while e<>d[n] do
  begin
   e:=chr(ord(e)+1);
  end;
  i:=i+1;
  c:=c+e;
  n:=n+1;
 end;
 writeln('На преобразование числа H(', h,') в перевертыш M(', d, ')  уйдет ', i, ' перестановок.');
end.