Определить, существует ли треугольник со сторонами a, b, c, и если существует, то является ли он равносторонним. Ввести и вывести данные с помощью текстового файла.

var a, b, c: real; begin   assign(input, 'input.txt'); reset(input);   assign(output, 'output.txt'); rewrite(output);   read(a, b, c);   if (a + b < c) or (a + c < b) or (b + c < a) then writeln('Не существует')   else if (a = b) and (b = c) then writeln('Существует. Равносторонний')   else writeln('Существует. Неравносторонний'); end.