program paridispari
implicit none
integer ::i,j

write(6,*)'dammi due numero'
read(5,*)i,j

if(i/j*j == i)then
   write(6,*)'i divisibile per j'
else
   write(6,*)'i non divisibile per j'
endif

end