Известны фамилии и результаты 15 спортсменов - бегунов, найти и вывести на экран информацию о трёх призерах соревнований (фамилии и результаты) о спортсмене с худшим результатом, о среднем результате среди всех спортсменов.
НА ПАСКАЛЕ
как можно проще написать, тоесть без использования сложных элементов.

begin

 var L := new List<(string, real)>;

 for var i := 1 to 15 do

   L.Add((ReadlnString('Фамилия:'),

          ReadlnReal('результат:')));

 L := L.OrderByDescending(x -> x[1]).ToList;

 Println('Призеры:');

 L.Take(3).ForEach(x -> begin Println(x[0], x[1]) end);

 Println('Худший результат: ', L[14][0], L[14][1]);

 Println('Средний резульат:', L.Select(x -> x[1]).Average)

end.