Задачи нужно решить по языку программирования Python: Найти площадь прямоугольного треугольника ,у которого один из катетов равен 3 см,а гипотенуза 5 см.

ВТОРАЯ ЗАДАЧА

Найти площадь заштрихованной фигуры

Судьи поставили спортсмену оценки:
5.9,5.85,6.0,5.95,6.1,5.9. Найдите средний , определите является ли этот спортсмен чемпионом (Чемпионом становится тот, у кого средний больше 6.1)
БУДУ ОЧЕНЬ БЛАГОДАРНА ,если составите блок-схемы к задачам

РЕШИТЕ ХОТЯ БЫ ОДНУ ЗАДАЧУ
​

Var
  i,p,k1,k2:integer;
begin
  Randomize;
  Writeln('Вес учеников');
  k1:=0; k2:=0;
  for i:=1 to 26 do
  begin
    p:=Random(31)+55;
    Write(p:3);
    if p<60 then Inc(k1)
    else if p>=75 then Inc(k2)
  end;
  Writeln;
  Writeln('Легких- ',k1,', тяжелых- ',k2)
end.

Тестовое решение:
Вес учеников
 75 72 62 85 84 60 79 65 78 67 68 72 56 76 57 59 73 56 82 59 79 57 62 85 57 58
Легких- 8, тяжелых- 9

Вариант со вводом данных:
var
  i,p,k1,k2:integer;
begin
  Writeln('Введите вес учеников');
  k1:=0; k2:=0;
  for i:=1 to 26 do
  begin
    Read(p);
    if p<60 then Inc(k1)
    else if p>=75 then Inc(k2)
  end;
  Writeln('Легких- ',k1,', тяжелых- ',k2)
end.

Тестовое решение:
Введите вес учеников
75 72 62 85 84 60 79 65 78 67 68 72 56 76 57 59 73 56 82 59 79 57 62 85 57 58
Легких- 8, тяжелых- 9

// F#
[<EntryPoint>]
let main argv =
    let generateTable n m =
        Array2D.init n m (fun i j -> (i+1) * (j+1))
    let printMatrix (matrix:int[,]) =
        printf "    "
        for i = 0 to (Array2D.length1 matrix) - 1 do
            printf "%4d " (i+1)
        printf "\n"
        printf "    "
        for i = 0 to (Array2D.length1 matrix) - 1 do
            printf ""
        printf "\n"
        for j = 0 to (Array2D.length2 matrix) - 1 do
            printf "%2d |" (j+1)
            for i = 0 to (Array2D.length1 matrix) - 1 do
                printf "%4d " matrix.[i, j]
            printf "\n"
        printf "\n"
    let inputArray = generateTable 10 10
    printMatrix inputArray
    System.Console.ReadKey true |> ignore
    0