Дано натуральне число n. найти произведение его цифр pascal

PaskalABC
//дано натуральне число n. Найти произведение его цифр pascal

Var x,y,S:word;
Begin
  S:=1;
  Writeln ('Введите натуральное число (от 1 до 65535)');
  Readln (x);
  If x=0 then writeln ('Ноль не является натуральным числом')// проверка на шутника (от введенного 0)
  Else
    Begin
      While x<>0 do
        Begin
          y:=x mod 10;
          x:=x div 10;
          S:=S*y;
        End;     
       Writeln ('Произведение цифр данного числа равно ',S);
    End;
End.