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