Как найти произведение цифр четырех значного числа на языке паскаль?

varx,p:integer;beginwriteln('Введите х:');readln(x);p:=1;p:= x mod 10; x:=x div 10;p:= p * (x mod 10); x:=x div 10;p:= p * (x mod 10); x:=x div 10;p:= p * x;writeln(p);end.