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

Question

var 
a, b, c, P : integer; 
S, F1, F2, F3, F4, p1, R : real; 
Begin 
Writeln ('Ââåäèòå çíà÷åíèÿ ñòîðîí'); 
readln(a,b,c); 
IF (a + b <= c) OR (a + c <= b) OR (c + b <= a) THEN 
Writeln ('òàêîãî òðåóãîëüíèêà íå ñóùåñòâóåò') Else 
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. 
 
Результат даёт неверный ( Нужно найти радиус треугольника, вписанного в окружность)

Петя Карсаков · Accepted Answer

хз. я увидела только одну. добавь в последнем writeln (....R:6:1)

Марина Бухарова · Answer

то что иначе возьми в операторные скобки (btgin end;) у тебя только p := a+b+c выполняется иначе, а все остальное всегда.