Напишите Writeln('P = ', p:0:2);
У Вас результат правильный, просто Турбопаскаль вещественные любит выводить с плавающей точкой.
