По треугольнику - для определения возможность существования треугольника со сторонами a, b и c необходимо проверить, что любые 2 стороны в сумме длиннее третьей.
Код:
var
Possible: boolean;
A, B, C: Integer;
begin
// ...
// Задаём A,B,C...
// ...
Possible := (A+B>C) and (B+C>A) and (C+A>B);
// ...
// Работаем с логическим Possible...
// ...
end;