Наиболее напряженной формой борьбы за существование считают

Program Project;
var
  I, N: Integer;
begin
  for I:=0 to 9 do begin
    ReadLn(N);

    if (N Mod 2 = 0) then
      WriteLn('чётное')
    else
      WriteLn('нечётное')
  end;
end.