Question

Помогите с программой
Не выводит нужно значение. Как исправить (подробнее)

Answer 1

Напишите Writeln('P = ', p:0:2);

У Вас результат правильный, просто Турбопаскаль вещественные любит выводить с плавающей точкой.