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

спасибо большое :3

Если честно, то можно проще...program a1;var i,y,x,rez:integer; beginread(x,y);for i:=1 to y do rez:=rez+x; writeln(rez);end.

program a1;var x,y,s: integer;beginread (x,y);  write(x,'*',y,'=');  while x>0 do  begin     If ((x mod 2) <>0) then s:=s+y;     x:= x div 2;     y:=y+y; end;write(s);writeln();readln();end.Русский способ умножения