C
C
      program parimpar

      write (*,*) 'N£mero a classificar: '
      read (*,*) N

      resto = mod(N,2)

      if (resto .eq. 0) then
      write (*,*) 'Par'
      else
      write (*,*) 'Ömpar'
      endif

C     O comando 'stop' termina o programa, escrevendo 'STOP - Program terminated' no ecra.
      stop
      end