Попугай рома вытягивает каждый из семи дней случайным образом число от 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 четных