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

Спасибо, большое будь счастлив

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.