Нужно решить не простую(для меня) задачу в Delphi !!

[St1mkA]

даны действительные положительные числа x y z !выяснить сушествует ли треугольник с длинами сторон x y z! если сушествует то ответить является ли он выраженным!

[ac1d_buRn]

var x,y,z:real;
begin

  write ('Vvedite X = '); readln(x);
  write ('Vvedite Y = '); readln(y);
  write ('Vvedite Z= '); readln(z);

  if ((x+y)>z) and ((x+z)>y) and ((y+z)>x) then
     writeln ('Treygolnik sywestvyet')
  else writeln ('Treygolnik ne sywestvyet');
readln;
end.

[St1mkA]

Сообщение от ac1d_buRn

var x,y,z:real;
begin

  write ('Vvedite X = '); readln(x);
  write ('Vvedite Y = '); readln(y);
  write ('Vvedite Z= '); readln(z);

  if ((x+y)>z) and ((x+z)>y) and ((y+z)>x) then
     writeln ('Treygolnik sywestvyet')
  else writeln ('Treygolnik ne sywestvyet');
readln;
end.

а про то является он выраженным или нет?

[ac1d_buRn]

Сообщение от St1mkA

а про то является он выраженным или нет?

Может не "выраженным" а "вырожденным" ?

[St1mkA]

Сообщение от ac1d_buRn

Может не "выраженным" а "вырожденным" ?

вырожденным))

[ac1d_buRn]

Сообщение от St1mkA

вырожденным))

"В треугольнике сумма двух его сторон должна быть больше третьей стороны, в ином случае треугольник называется вырожденным." (с)

else writeln ('Treygolnik ne sywestvyet'); {является вырожденным}

[St1mkA]

Сообщение от ac1d_buRn

"В треугольнике сумма двух его сторон должна быть больше третьей стороны, в ином случае треугольник называется вырожденным." (с)

else writeln ('Treygolnik ne sywestvyet'); {является вырожденным}

Спасибо большое