Записать в Паскале.Найти произведение всех цифр заданного четырехзначного числа. x это 4ех значное чило a,б,с,д цифры из x

Program Chisla;
var
x, a, b, c, d, dob : integer;
begin
readln(x);
d:= x mod 10;
a:= x div 1000;
b:=(x div 100)-10*a;
c:= (x div 10) - 100*a-10*b;
dob:=a*b*c*d;
writeln(dob);
end.