Помогите сделать задание по программированию

##

function F1(a, b: real) := Sqrt(a + Sin(b))/(Cos(a) - b);    // для задания 1

procedure P3(n: integer) := Range(n, 1, -2).Println;         // для задания 3

// задание 1

var y := F1(5, 9) + F1(3, 7) + F1(6, 2);

Println('y=', y);

// задание 3

P3(7); P3(11); P3(3)