Basic: написать программу вычисления стоимости покупки состоящей из нескольких тетрадей и карандашей

' Free Basic

Dim a as Double

Dim b as Double

Dim c as Integer

Dim d as Integer

print "Цена карандаша"

input a

print "Цена тетради"

input b

print "Количество карандашей"

input c

print "Количество тетрадей"

input d

print "Цена за все = "; a * c + b * d