Пожалуйста Составьте программу, которая находит произведение цифр заданного четырехзначного числа

var  a, n, s: integer; begin  read(a);  s := 1;  while a > 0 do   begin        n := a mod 10;        s := n * s;     a := a div 10;   end;   write(s); end.