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

program Triangle;var a,b,c:real;beginRead (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.