Program to find the cost of any product or goods in QBASIC

Here the example to find the cost of 50 pens so if you want to create program to find other things cost then you have to make some changes.
So here the example :-

CLS
PRINT "Find the Cost of 50 pen"
INPUT "Enter Price of 1 Pen"; cost
cost = cost * 50
.
PRINT "Cost of 50 pens is"; cost
END