Uses crt;

var
num1,num2,sum,i:integer;

begin
      randomize;

      i:= 0;

      while(i < 5) do
      begin
            num1 := random(101);

            if(num1 mod 2 = 0) then
            begin
                  writeln(num1,' - chetnoe');
            end
            else
            begin
                  writeln(num1,' - ne chetnoe');
            end;

            sleep(200);

            i := i + 1;
      end;


      readkey;
end.