Вы программу составили правильно,но только в строчке предпоследней ошибку совершили,а именно:
У вас:"writeln('Найти произведение чисел p=')"
А нужно: "writeln('Найти произведение чисел p=',p)"
Вы просто забыли указать переменную,которую нужно выводить :)