Вывести цену, уплачиваемую покупателем в j-ый день при покупке им K килограмм (Ki кг) каждого i-го продукта

CLS
 
TYPE ProductTable
 stoimost AS SINGLE
 srok AS INTEGER
END TYPE
 
INPUT "Vvedite kolichestvo produktov: ", n
 
DIM product(n) AS ProductTable
 
PRINT
FOR i = 1 TO n
 INPUT "Vvedite stoimost i srok cherez zapyatuyu: ", product(i).stoimost, product(i).srok
NEXT i
 
PRINT
INPUT "Vvedite den pokupki: ", j
INPUT "Vvedite massu pokupaemih produktov: ", k
 
PRINT
FOR i = 1 TO n
 sort = j \ product(i).srok
 IF sort > 5 THEN sort = 5
 stoimost = product(i).stoimost * .8 ^ sort * k
 PRINT "Product"; i; "-"; stoimost; "rub."
NEXT i