Решите пожалуйста задачу по информатике , по теме "див и мод"
Дано четырёхзначное число х.Найти произведение.
Очень срочно надо ! ! ! ПОЖАЛУЙСТААА ! ! !

Program pr;uses crt;Var x, x1, x2, x3, x4, p:integer;Beginreadln(x);x1:=x div 1000;x2:=(x div 100) mod 10;x3:=(x mod 100) div 10;x4:=x mod 10;p:=x1*x2*x3*x4;Writeln(p);readln;end.