Решение задачи Case 13

#include <bits/stdc++.h>
 using namespace std;
int main(void)
{
   int n;
   float x,a,c,h,s;
   printf("Номер элемента:") ;
   scanf ("%i", &n);
   printf("Длинна:") ;
   scanf ("%f", &x);
 
   switch (n) {
   case 1:
        a=x;
        c=a*sqrt(2);
        h=c/2;
        s=c*h/2;
        printf("%f %f %f\n",c,h,s);
        break;
   case 2:
       c=x;
       a=c/sqrt(2);
       h=c/2;
       s=c*h/2;
       printf("%f %f %f\n",a,h,s);
        break;
   case 3:
       h=x;
       c=2*h;
       a=c/sqrt(2);
       s=c*h/2;
       printf("%f %f %f\n",a,c,s);
        break;
   case 4:
       s=x;
       h=sqrt(s);
       c=2*h;
       a=c/sqrt(2);
       printf("%f %f %f\n",a,c,h);
        break;
   }
   return 0;
}

import random
import math

r = {1 : "катет a", 2 : "гипотенуза c", 3 : "высота h", 4 : "площадь S "}
d = []

i = random.randrange(1,5)
#i = 4
print("i : ", i)
N = random.randrange(1,100)
#N = 64
print(r[i],":",N)
if i == 1:
    a = N
    c = math.sqrt(2) * a
    h = c / 2
    S = c * h / 2
elif i == 2:
    c = N
    a = c / math.sqrt(2)
    h = c / 2
    S = c * h / 2
elif i == 3:
    h = N
    c = 2 * h
    a = c / math.sqrt(2)
    S = c * h / 2
elif i == 4:
    S = N
    c = math.sqrt(S * 4)
    a = c / math.sqrt(2)
    h = c / 2

d.append(a)
d.append(c)
d.append(h)
d.append(S)

print()
print("Элементы равнобедренного прямоугольного треугольника:")
for i in range(0,4):
    print(r[i+1],":",d[i])
									

program Case13;
var
  N:Integer;
  X,a,c,h,S:Real;
begin
  Write('Введите номер элемента прямоугольного треугольника: ');
  Readln(N);
  Write('Введите длинну элемента: ');
  Readln(X);
 
  Case N of
   1: begin
       a:=X;
       c:=a*sqrt(2);
       h:=c/2;
       S:=c*h/2;
      end;
   2: begin
       c:=X;
       a:=c/sqrt(2);
       h:=c/2;
       S:=c*h/2;
      end;
   3: begin
       h:=X;
       c:=2*h;
       a:=c/sqrt(2);
       S:=c*h/2;
      end;
   4: begin
       S:=X;
       h:=Sqrt(S);
       c:=2*h;
       a:=c/sqrt(2);
      end;
  end;
  Writeln('Длина катета равна: ',a,'; Гипатенуза равна: ',c,'; Высота опущенная на гипотенузу равна: ',h, 'Площадь равна',S);
end.