Найдите произведение цифр 4x-значного числа. Паскаль. Помогите, пожалуйста.

Program n_1;

var a:integer;

begin

   readln(a);

   a:=(a mod 10)*(a div 10 mod 10)*(a div 100 mod 10)*(a div 1000 mod 10);

   writeln(a);

end.