Решить в python(робінзони): на одному маленькому квадратному безлюдному острові зі стороною a метрів перебували k робінзонів. чи не порушенні їх права на житло, якщо на кожного робінзона повинно припадати n м2 площі острова?

Type   frac = record       p: integer;       q: 1..32767   end; function gcd(a: integer; b: integer): integer; {нахождение нод} var   i: integer; begin   while b < > 0 do   begin       a : = a mod b;       i : = b; b : = a; a : = i   end;   result : = a end; function redfrac(a: frac): frac; {сокращение дроби} var   igcd: integer;   r: frac; begin   igcd : = gcd(a.p, a.q);   r.p : = a.p div igcd;   r.q : = a.q div igcd;   redfrac : = r end; function add(a, b: frac): frac; {сложение дробей} var   r: frac; begin   r.p : = a.p * b.q + b.p * a.q;   r.q : = a.q * b.q;   add : = redfrac(r) end; function mult(a, b: frac): frac; {умножение дробей} var   r: frac; begin   r.p : = a.p * b.p;   r.q : = a.q * b.q;   mult : = redfrac(r) end; var   m, n, k: frac; begin   m.p : = 4; m.q : = 15; {4/15}   n.p : = 9; n.q : = 25; {9/25}   k : = add(m, n);   writeln(k.p, '/', k.q);   k : = mult(m, n);   writeln(k.p, '/', k.q); end. результат выполнения программы: 47/75 12/125

Const   n = 20; var   x: array[1..n] of integer;   i: integer; begin   randomize;   writeln('элементы массива');   i : = n;   for i : = 1 to n do   begin       x[i] : = random(101) - 50;       write(x[i]: 4);   end;   writeln;   while (i > = 1) and (x[i] > = 0) do i : = i - 1;   if i > 0 then       writeln('последний отрицательный элемент x[', i, ']=', x[i])   else       writeln('нет отрицательных элементов') end. тестовое решение: элементы массива     5  -9 -32 -48  33    2 -41  24  31 -31 -48 -24 -17  45 -41 -23  -1  38  45  14 последний отрицательный элемент x[17]=-1