Составить алгоритм решения этой : ) требуется расчитать периметр прямоугольного треугольника с углом 30 градусов, по заданному катету лежащему против угла 30 градусов

Х- длина катета напротив угла в 30 градусов 2х - длина второго катета - длина гипотенузы - периметр

Var   n, k, t, i, counter, j: int64;   c: array[1..10]of int64;   a: array[1..100000]of int64;   ar: array[1..10, 1..100000]of int64;   count: array[1..10]of int64;   b: boolean;   label l1;   begin   b : = true;   counter : = 0;   read(n, k, t);   for i : = 1 to n do read(c[i]);   for i : = 1 to k do read(a[i]);   l1:   while (counter < > k) do     begin     for j : = 1 to n do       begin       for i : = 1 to c[j] do         begin         if(ar[j, i] < = a[counter + 1]) then           begin           ar[j, i] : = t + a[counter + 1];             counter : = counter + 1;           count[j] : = count[j] + 1;           b : = false;           goto l1;         end;       end;     end;     if(b = true) then counter : = counter + 1;     b : = true;   end;   for i : = 1 to n do write(count[i], ' '); end.

Var   n, m, x, y, i: int64;     ar: array[1..100000]of int64;   ms: array[1..100000]of int64;   begin   read(n, m);   for i : = 1 to n do     begin     ar[i] : = i;     ms[i] : = i;     end;   for i : = 1 to m do     begin     read(x, y);     swap(ms[x], ms[y]);       swap(ar[ms[x]], ar[ms[y]]);     end;   for i : = 1 to n do write(ar[i], ' ');   end.