Даны натуральные числа x и y. Вычислить произведение x*y, используя лишь
сложение. Язык программирования: Паскаль.

var x,y,i,p:longint;begin  write ('X = ');  readln (x);  write ('Y = ');  readln (y);  p:=0;  for i:=1 to y do p:=p+x;  writeln ('Proizvedenie: ',p);end.