Попугай Рома вытягивает каждый из семи дней случайным образом число от 1 до 10. Сколько чётных и сколько нечётных чисел он вытянул за неделю.

var  i,kn,m:integer;begin  Randomize;  kn:=0;  for i:=1 to 7 do begin    m:=Random(10)+1;    Write(m,' ');    if m mod 2 <>0 then kn:=kn+1    end;  Writeln;    Writeln(kn,' нечетных, ',7-kn,' четных')end.Пример8 4 7 9 4 5 10 3 нечетных, 4 четных