uses crt;
var a,b,c,p:real;
begin
clrscr;
repeat
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if (abs(a-b)>c)or(abs(a+b)<c)
then writeln('Это не треугольник! Повторите ввод.');
until (abs(a-b)<c) and( abs(a+b)>c);
p:=(a+b+c)/2;
writeln('Полупериметр=',p:0:1);
writeln('Длины биссектрис равны:');
writeln((2*(sqrt(b*c*p*(p-a)))/(b+c)):0:1);
writeln((2*(sqrt(a*c*p*(p-b)))/(a+c)):0:1);
write((2*(sqrt(b*a*p*(p-c)))/(b+a)):0:1);
readln
end.