Question

Помогите пожалуйста срочно

Answer 1

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.