36. Qbasic Program to ask a number as paisa and convert them into corresponding rupees only

36.      WRITE A PROGRAM to ask a number as paisa and convert them into corresponding rupees only solve it using SUB Procedure.

DECLARE SUB CONVERT (P)

CLS

INPUT “ENTER VALUE IN PAISE”; P

CALL CONVERT (P)

END

SUB CONVERT (P)

R = P / 100

PRINT “Rupees=”;  R

END SUB