Составить алгоритм нахождения произведения z двух натуральных чисел x и y без использования операции умножения

var

i, z, y, x: integer; / / объявление переменных

begin / / начало программы

writeln ('Введите числа: ') ; / / Вывод сообщения

readln (x, y) ; / / Ввод чисел х и у с клавиатуры

while i y do / / Повторять цикл пока i не будет равно y

begin / / Вход в цикл

z:=z+x; / / z = z + x (при первом шаге получается 0 = 0 + х)

i:=i+1; / / Увеличиваем счетчик цикла на 1

end; / / Выход из цикла

write (z) ; / / Вывод z (произведение х и у)

end. / / Конец программы