посчитайте,

1) ошибка p :=0 заменить на p := 1

2) ошибка writeln(n) заменить на writeln(p)

program Pro;

var

 a, n, p: integer;

begin

 p := 1; // Заменить на 1, т. к. при постоянном умножении любого числа на 0, выражение будет = 0

 readln(n);

 while n > 0 do

 begin

   p := p * (n mod 10);  // Программа будет некорректно работать, если не поставить в данном случае скобки, но такого пункта в Вашем номере нет.

   n := n div 10;

 end;

 writeln(p); // Заменить на p, т. к. n - число, вводимое с клавиатуры, а p - произведение цифр числа

end.