Помогите, пожалуйста, буду очень благодарна ♥️ (pascal)

var    i:integer;  a,b,h,s: double;Begin    writeln('Что известно?');  writeln('1 - катет');  writeln('2 - гипотенуза');  writeln('3 - высота');  writeln('4 - площадь');  write('Ваш выбор: ');  read(i);  case i of  1:begin      write('Значение катета = ');      read(a);      s:=a*a*2;      h:=sqrt(s);      b:= 2*h;    end;  2:begin      write('Значение гипотенузы = ');      read(b);      h:=b/2;      s:=h*h;      a:=sqrt(2*s);    end;  3:begin      write('Значение высоты = ');      read(h);      b:=2*h;      s:=h*h;      a:=sqrt(2*s);    end;  4:begin      write('Значение площади = ');      read(a);      h:=sqrt(s);      b:=2*h;      a:=sqrt(2*s);    end;  end;  writeln(' Катет           a = ',a);  writeln(' Гипотенуза b = ',b);  writeln(' Высота        h = ',h);  writeln(' Площадь    s = ',s);End.

// равнобедренный прямоугольный треугольник// a - катет, b - гипотенуза, h - высота, S - площадьvar a,b,h,S: real;    ch: char;begin  write('задайте элемент треугольника: a,b,h или S: ');  readln(ch);  if ch='a' then  begin    write('a = '); readln(a);  end;    if ch='b' then   begin    write('b = '); readln(b);    a:=sqrt(sqr(b)/2);  end;  if ch='h' then   begin    write('h = ');  readln(h);    a:=h*sqrt(2);  end;  if ch='S' then  begin    write('S = '); readln(S);    a:=sqrt(2*S);  end;  if b=0 then b:=sqrt(2*sqr(a));  if h=0 then h:=a*sqrt(2)/2;  if S=0 then S:=a*a/2;  writeln('элементы прямоугольного равнобедренного треугольника');  writeln('катет a: ',a:5:3);  writeln('гипотенуза b: ',b:5:3);  writeln('высота h: ',h:5:3);  writeln('площадь S: ',S:5:3);end.  задайте элемент треугольника: a,b,h или S: aa = 4элементы прямоугольного равнобедренного треугольникакатет a: 4.000гипотенуза b: 5.657высота h: 2.828площадь S: 8.000задайте элемент треугольника: a,b,h или S: hh = 3элементы прямоугольного равнобедренного треугольникакатет a: 4.243гипотенуза b: 6.000высота h: 3.000площадь S: 9.000