Pascal. пользователь вводит два натуральных числа. вычислить произведение введённых чисел, используя только операции сложения и вычитания. ( нужно сделать в pascal'е, кодом).

var

   x, y, sum:integer;

begin

   write('x: ');

   readln(x);

   write('y: ');

   readln(y);

   sum:= 0;

   while y > 0 do

   begin

       sum := sum + x;

       y := y - 1;

   end;

   writeln(sum);

end.