Напишите программу треугольник со сторонами, пожалуйста очень надо. Даны длины 3-х...

Question

Напишите программу треугольник со сторонами, пожалуйста очень надо.
Даны длины 3-х отрезков. Нужно сказать, можно ли, соединяя отрезки концами,
получить равносторонний, равнобедренный или разносторонний треугольники. Или
неравенство треугольника нарушено и его составить нельзя?
Input
Со стандартного устройства ввода вводятся через пробел 3 целых положительных числа,
не превосходящих 10000 – длины отрезков.
Output
Нужно выдать на стандартное устройство вывода одно из следующих сообщений:
“Triangle is equilateral” – если треугольник равносторонний,
“Triangle is isosceles” – если треугольник равнобедренный,
“Triangle is scalene” – если треугольник разносторонний,
“Triangle is invalid” – если треугольника не существует.
Кавычки выводить не нужно

Answer 1

Program Triangle;
var a,b,c:real;
begin
Read (a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a)
then
  if (a=b)and(b=c)and(a=c)
  then write ('Triangle is scalene')
  else
    if (a=b)or(b=c)or(a=c)
    then write ('Triangle is isosceles')
    else write ('Triangle is equilateral')
else write('Triangle is invalid');
end.