Найти произведение цифр заданного целого числа. Решить в паскале. Пишу вот такую команду но пишет ошибку.   P := 1; {здесь будет произведение}
while n > 0 do begin
P := P * (n mod 10);
n := n div 10;
end;

program aaa;var a,b,d:integer;beginread(a);d:=1;while a> 0 do beginb:=a mod 10;a:=a div 10;d:=d*b;end;writeln(d);end.