Даны натуральные числа 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.