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

var x,y,p,i:integer;beginreadln(x,y);for i:=1 to abs(y) do  p:=p+x;if y<0 then p:=-p;writeln(p);end.