Помогите найти ошибку))))

Question

var 
a, b, c, P : integer; 
S, F1, F2, F3, F4, p1, R : real; 
Begin 
Writeln ('Ââåäèòå çíà÷åíèÿ ñòàðîí òðåóãîëüíèêà'); 
readln(a,b,c); 
P:=a+b+c; 
p1:=P/2; 
F1:=P1-a; 
F2:=P1-b; 
F3:=P1-c; 
F4:=p1*F1*F2*F3; 
S:=sqrt(F4); 
R:=a*b*c/(4*S); 
Writeln('Ðàäèóñ òðåóãîëüíèêà=', R); 
End. 
Всё равно выдаёт неверный результат).

Как ограничить значение радиуса до 3-ёх точек?

Ирина Поддорогина · Accepted Answer

Неверный результат чего? Вычислений? А как выглядит поставленная задача? 
Или ошибку в программном коде? Если память не изменяет, то идентификаторы р1 и Р1 - различные, компилятор будет их понимать как две разные переменные.