Даны натуральные числа x и y. Вычислить произведение xy, используя лишь операцию сложения- QBasic(Бейсик)

CLS
PRINT "Vvedite X: ";: INPUT X&
PRINT "Vvedite Y: ";: INPUT Y&
FOR p& = 1 TO X&: Pr& = Pr& + Y&: NEXT
PRINT "Proizvedeniye:"; Pr&