По заданному номеру и значению соответствующего элемента вычислить значения всех остальных элементов треугольника.

uses crt;
var ch:integer;
    a,g,h,S,c:real;
 
 procedure Menu;
  begin
   Writeln('1. Катет');
   Writeln('2. Гипотенуза');
   Writeln('3. Высота');
   Writeln('4. Площадь');
   Writeln('-------------');
   Writeln('0. Выход');
  end;
 
  procedure katet(a,g,h,S,c:real);
   begin
    ClrScr;
    Writeln('Введите катет a...');
    Readln(a);
     g:=sqrt(sqr(a)*2);
     c:=g/2;
     h:=sqrt(sqr(a)-sqr(c)/4);
     S:=(c*h)/2;
    Writeln('Гипотенуза ',g:0:2);
    Writeln('Высота ',h:0:2);
    Writeln('Площадь ',s:0:2);
    Readln;
   end;
  procedure gipotenusa(a,g,h,S,c:real);
   begin
   ClrScr;
   Writeln('Введите гипотенузу g...');
   Readln(g);
    c:=g/2;
    a:=sqrt(g*g/2);
    h:=sqrt(sqr(a)-sqr(c)/4);
    S:=(c*h)/2;
   Writeln('Катет ',a:0:2);
   Writeln('Высота ',h:0:2);
   Writeln('Площадь ',s:0:2);
   Readln;
   end;
  procedure visota(a,g,h,S,c:real);
   begin
   ClrScr;
   Writeln('Введите высоту h...');
   Readln(h);
    a:=sqrt(4/3)*h;
    g:=sqrt(2)*a;
    c:=g/2;
    S:=(c*h)/2;
    Writeln('Катет ',a:0:2);
    Writeln('Гипотензуа ',g:0:2);
    Writeln('Площадь ',S:0:2);
   Readln;
   end;
  procedure ploshad(a,g,h,S,c:real);
   begin
   ClrScr;
    Writeln('Введите площадь S...');
    Readln(s);
     a:=8/7*sqrt(s);
     g:=sqrt(2)*a;
     c:=g/2;
     h:=sqrt(sqr(a)-sqr(g)/4);
    Writeln('Катет ',a:0:2);
    Writeln('Гипотенуза ',g:0:2);
    Writeln('Высота ',h:0:2);
   Readln;
   end;
 
  begin
   ch:=0;
    while ch<>5 do
     begin
      ClrScr;
      Menu;
      Readln(ch);
       case ch of
       0: break;
       1: katet(a,g,h,S,c);
       2: gipotenusa(a,g,h,S,c);
       3: visota(a,g,h,S,c);
       4: ploshad(a,g,h,S,c);
     end;
  end;
 end.