Пожалуйста посчитайте срочно !! Составить программу

Везде используется язык PascalABC.NET 3.2

1)
begin
  print(readSeqInteger(3).Average)
end.

Пример ввода: 22 25 28
Пример вывода: 25

2) 
begin 
  print(2*readreal <= readreal ? 'da' : 'net') 
end.

Пример ввода: 7 13
Пример вывода: net

Пример ввода: 7 15
Пример вывода: da

3)
begin
   print(readSeqInteger(12).Where(x ->Odd(x)).Average)
end.

Пример ввода:
1 2 3 4 5 6 7 8 9 10 11 12
Пример вывода:
6