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

Var X,Y,Z:integer;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
Z:=0;
For X:= 1 to X do
    Z:=Z+Y;
Write('Z = ',Z);
End.