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

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