Se((inteiro%2) ==0)
 |  par <- par+1;
 |  escreva "Par: ",par;
 |  escreva "Impar: ",impar;
 |
 fim se
 Se não
 |  impar <- impar+1;
 |  escreva "Par: ",par;
 |  escreva "Impar: ",impar;
 fim se não