Var x,y,z,p,l:real;
begin
writeln('Введите длины сторон X Y Z');
writeln('Введите сторону X');
readLn (x);
writeln('Введите сторону Y');
readLn (y);
writeln('Введите сторону Z');
readLn (z);
if (x+y>z) and (y+z>x) and (x+z>y) then
begin
writeln ('треугольник');
p:=(x+y+z)/2;
l:=(2*sqrt (x*y*p*(p-z)))/(x+y);
writeln ('полупериметр равен ',p);
writeln ('биссектриса равна ',l);
end
else writeln ('не является треугольником');
end.