Даны натуральные числа x и y вычислить произведение ху используя лишь операцию сложение решить двумя

Основная часть программы:
for i = 0 to y-1 do
s = s+x;

Или:

 for i=0, to x-1 do
s=s+y

где i,s:integer;
s-произведение