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.