Элементы равнобедренного прямоугольного треугольника пронумерованы следующим образом: 1-катет(а);2-гипотенуза(с);3-высота,опущенная на гипотенузу(h);4-площадь(s);Дан номер одного из этих элементов и его значение, вывести значение остальных элементов данного треугольника в этом же порядке — Pascal(Паскаль)

uses crt;
var
a,c,h,s:real;
n:integer;
begin
writeln('po kakomy parametry ischem?(1-katet, 2-gipotenyza,3-vusota,4-ploschad)');
readln(n);
case n of
1: begin
   writeln('vvedite katet');
   readln(a);
   c:=sqrt(2*a*a);
   h:=a/sqrt(2);
   s:=a*a/2;
   writeln('katet=',a);
   writeln('gipotenyza=',c);
   writeln('vusota=',h);
   writeln('ploschad=',s);
end;
2: begin
   writeln('vvedite gipotenyzy');
   readln(c);
   a:=c/sqrt(2);
   h:=a/sqrt(2);
   s:=a*a/2;
   writeln('katet=',a);
   writeln('gipotenyza=',c);
   writeln('vusota=',h);
   writeln('ploschad=',s);
end;
3: begin
   writeln('vvedite vusoty');
   readln(h);
   a:=h*sqrt(2);
   c:=sqrt(2*a*a);
   s:=a*a/2;
   writeln('katet=',a);
   writeln('gipotenyza=',c);
   writeln('vusota=',h);
   writeln('ploschad=',s);
end;
4: begin
   writeln('vvedite ploschad');
   readln(s);
   a:=sqrt(2*s);
   c:=sqrt(2*a*a);
   h:=a/sqrt(2);
   writeln('katet=',a);
   writeln('gipotenyza=',c);
   writeln('vusota=',h);
   writeln('ploschad=',s);
end;
end;
readln;
end.