10 ' ** OISAC 2 ** MOD **
20 INPUT"Dividande : ",a,"Diviseur  : ",b:d=a/b:r=(d-INT(d))*b:PRINT "Reste : "r