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

Vara, b, z, x:integer;

begin

writeln ('Введите первое число') ;

readln (a) ;

writeln ('Введите второе число') ;

readln (b) ;

writeln ('Введите третье число равное первому') ;

readln (z) ;

a:=1;

while a<=z do

begin

x:=x+b;

a:=a+1;

end;

writeln ('произведение равно = ', x)

end.