Выдать значение 0, если нельзя построить треугольник с заданными длинами сторон - Turbo Pascal

Формулировка задачи:

Даны произвольные числа a, b, c. Составить алгоритм, который выдаёт значение 0, если нельзя построить треугольник с такими длинами сторон, иначе выдаёт 3, 2 или 1, в зависимости от того, равносторонний это треугольник, равнобедренный или какой-либо иной.

Решение задачи: «Выдать значение 0, если нельзя построить треугольник с заданными длинами сторон»

Листинг программы

var
  a, b, c: real;
  
begin
  write(' a = ');
  readln(a);
  write(' b = ');
  readln(b);
  write(' c = ');
  readln(c);
  writeln;
  if (a > 0)or(b > 0)or(c > 0) then
    if (a + b <= c)or(a + c <= b)or(b + c <= a) then write(' ', 0)
    else
    if (a = b)and(b = c) then write(' ', 3)
    else
    if ((a = b)and(b <> c))or((a = c)and(a <> b))or
       ((b = c)and(a <> b)) then write(' ', 2)
    else write(' ', 1)
  else write(' ', 0)  
end.

Объяснение кода листинга программы

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Запрашивает у пользователя значения трех переменных a, b и c, представляющих длины сторон треугольника.
Проверяет, можно ли построить треугольник с заданными длинами сторон, используя теорему косинусов.
Если условия теоремы косинусов выполняются, то выводится пробел (значение 0).
Если условия теоремы косинусов не выполняются, то выводится одно из трех значений: 0, 3 или 2, в зависимости от соотношения сторон треугольника.
Если ни одно из условий не выполняется, то выводится значение 1. Пример: Введите значения a, b и c: a = 3 b = 4 c = 5 Результат выполнения программы: a = 3 b = 4 c = 5 a + b <= c a + c <= b b + c <= a 0 Примечание: Данный код не использует вложенные списки.