Вцикле с клавиатуры вводятся 10 целых чисел. вычислить процент чѐтных чисел и процент нечѐтных.

Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger('введите 10 целых чисел: ',10);   var pe: =a.where(t-> t.iseven).count/10;   writeln('нечетных ',100*pe,'%, четных ',100*(1-pe),'%') end. пример введите 10 целых чисел: 13 23 38 -24 0 16 -35 18 29 34 нечетных 60%, четных 40%