program divisibile
implicit none
integer::i,k
!dati due numeri, voglio vedere se il primo è multiplo del secondo

write(6,*)"dammi due numeri interi"
read(5,*)i,k

if((i/k)*k==i)then
   write(6,*)i,"è multiplo di",k
else
   write(6,*)i,"non è multiplo di",k
end if
end