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