Программа на языке Паскаль:

program TriangleType;
var
a, b, c: integer;
begin
writeln('Введите длины сторон треугольника:');
readln(a, b, c);
if (a + b > c) and (a + c > b) and (b + c > a) then
begin
if (a = b) and (b = c) then
writeln('Треугольник равносторонний')
else if (a = b) or (a = c) or (b = c) then
writeln('Треугольник равнобедренный')
else
writeln('Треугольник разносторонний');
end
else
writeln('Треугольник с такими сторонами не существует');
end.

Программа сначала запрашивает у пользователя длины сторон треугольника, затем проверяет существование треугольника по условию суммы длин двух сторон больше третьей. Если треугольник существует, программа определяет его тип (равносторонний, равнобедренный, разносторонний) и выводит соответствующее сообщение.