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

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.