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

Question

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

---

Answer 1

// равнобедренный прямоугольный треугольник
// 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: a
a = 4
элементы прямоугольного равнобедренного треугольника
катет a: 4.000
гипотенуза b: 5.657
высота h: 2.828
площадь S: 8.000

задайте элемент треугольника: a,b,h или S: h
h = 3
элементы прямоугольного равнобедренного треугольника
катет a: 4.243
гипотенуза b: 6.000
высота h: 3.000
площадь S: 9.000
  

Answer 2

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.