Пользователь вводит последовательность из 20 нат. чисел.Проверить есть ли в

var num, flag, i: Integer;

begin

   flag := 0;

   for i := 1 to 20 do

   begin

       Read(num);

       if ((num mod 2 = 1) and (num lt; 10)) then flag := flag + 1;

   end;

   if flag gt; 4 then Writeln('Yes') else Writeln('No')

end.

Можно написать и более эффективную программу, но и так сойдёт, размышляю. И да, если нужно наличние ровно 5 чисел (не больше и не меньше), то поменяйте flag gt; 4 на flag = 5.