Для этой задачи можно использовать следующий код на языке Pascal:

program TriangleType;
var
a, b, c: integer;
function IsTriangleExists(a, b, c: integer): boolean;
begin
if (a + b > c) and (a + c > b) and (b + c > a) then
IsTriangleExists := true
else
IsTriangleExists := false;
end;
function TriangleType(a, b, c: integer): string;
var
maxSide, sumSquares: integer;
begin
if IsTriangleExists(a, b, c) then
begin
maxSide := max(max(a, b), c);
sumSquares := sqr(a) + sqr(b) + sqr(c) - sqr(maxSide);
if sqr(maxSide) = sumSquares then
TriangleType := 'прямоугольный'
else if sqr(maxSide) > sumSquares then
TriangleType := 'тупоугольный'
else
TriangleType := 'остроугольный';
end
else
TriangleType := 'треугольник не существует';
end;
begin
writeln('Введите стороны треугольника:');
readln(a, b, c);
writeln('Тип треугольника:', TriangleType(a, b, c));
end.

Эта программа сначала проверяет существование треугольника с заданными сторонами, а затем определяет его тип (остроугольный, тупоугольный или прямоугольный).