нужно : Создать 4 списка, элементы списка вводятся пользователем. Список фамилий спортсменов, их возраст, рост и вес.

Отсортировать данные списки по фамилии, росту, весу и возрасту. Встроенную функцию sort() использовать нельзя

Делать на Питоне

Uses crt, math;

var n: extended;
var x: extended;
var s: extended;
var f: extended;
var t: extended;

begin
        { вводим значения }
        writeln('Enter n:'); readln(n);

        if n > 0 then begin

                { номер последовательности }
                x := ceil((sqrt(1.0 + 4.0 { 8.0 } * n) - 1.0) / 2.0);

                { количество элементов всех последовательностей }
                s := x + x*x;
                { s := s / 2; }

                { относительный номер элемента в последовательности }
                f := x * 2 - (s - n);

                if f <= x then begin
                        t := 1 + x - f;
                end;

                if f > x then begin
                        t := f - x;
                end;

                { выводим результат }
                writeln('t = ', t);

                { задержка }
                readln(n);
        end;
end.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
  var a,b:real;
  Write('Катеты первого треугольника: '); Read(a,b);
  var S1:=FS(a,b);
  Write('Катеты второго треугольника: '); Read(a,b);
  var S2:=FS(a,b);
  if S1>S2 then Writeln('Площадь первого треугольника больше')
  else
    if S1<S2 then Writeln('Площадь второго треугольника больше')
  else Writeln('Площади треугольников равны')
end.

Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше