Для вычисления произведения необходимо инициализировать переменную произведения единицей (p := 1), а не нулем.
Также, цикл должен выполняться для значений i от 1 до 5 включительно.
Вариант б) p := 1; i := 1; while i < 6 do i := i + 1; p := p * i; соответствует условию.