Пожалуйста посчитайте пожалуйста со вторым и третим в паскале.

begin 
  arrrandom(20, 0, 15).Println.Where(x -> x.IsOdd).Count.Println;
end.

begin 
  readarrinteger('Введите результаты подтягиваний 18 учеников:', 18).Min.Println();
end.