WAP to convert kilometer into miles

Qbasic program to convert kilometer into miles

 CLS
 INPUT"ENTER DISTANCE IN KILOMETER"; K
 M = K * 0.62
 PRINT “DISTANCE IN MILES=”; M
 END

USING SUB

DECLARE SUB KMM(K)
 CLS
 INPUT"ENTER DISTANCE IN KILOMETER"; K
 CALL KMM(K)
 END
 
 SUB KMM(K)
 M = K * 0.62
 PRINT “DISTANCE IN MILES=”; M
 END SUB