' 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