Вычислить р=х*у, не используя действие умножение в программе - QBasic

Формулировка задачи:

Дана два числа X и Y, введенные с клавиатуры. Вычислить р=х*у. Не используя действие умножение в программе. Через for To получилось. Но надо через Do loop, а через него что то никак. Помогите пожалуйста ребятки.

Решение задачи: «Вычислить р=х*у, не используя действие умножение в программе»

Листинг программы

P = 0
i=0
INPUT "X = ", X
INPUT "Y =", Y
DO 'while i<x           'один из апострофов
  'if i>=x then exit do 'надо убрать (по вкусу)
  i=i+1
  p=p+y
LOOP
PRINT "P ="; P

Объяснение кода листинга программы

Первый шаг - объявление переменных P, i, X и Y. Значение переменных P и i устанавливается равным 0.
Второй шаг - ввод значений переменных X и Y с помощью функции INPUT.
Третий шаг - начало цикла DO-LOOP. Цикл будет выполняться до тех пор, пока значение переменной i меньше значения переменной X.
Внутри цикла выполняется проверка на то, что значение переменной i не больше значения переменной X. Если это условие выполняется, то цикл прерывается с помощью команды EXIT DO.
Значение переменной i увеличивается на 1 на каждой итерации цикла.
Значение переменной P увеличивается на значение переменной Y на каждой итерации цикла.
После окончания цикла выводится значение переменной P с помощью функции PRINT.