program paridispari
implicit none
integer ::a


write(6,*)'dammi un numero'
read(5,*)a

if(a/2*2 == a)then
   write(6,*)'pari'
else
   write(6,*)'dispari'
endif

end