Составить алгоритм нахождения произведения 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.                                // Конец программы