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