Компьютерде ыңғайлы жұмыс істеу үшін  негізгі 3 шартты таңда.​

Var
  a,b,c:real;
  F:byte;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  if (a<b+c) and (b<a+c) and (c<a+b) and
    (a>0) and (b>0) and (c>0) then F:=1 else F:=0;
  if F=1 then Writeln('Треугольник можно построить')
  else Writeln('Треугольник построить нельзя')
end.

Тестовые решения:
Введите длины сторон треугольника: 3 4 5
Треугольник можно построить

Введите длины сторон треугольника: 1 1 1
Треугольник можно построить

Введите длины сторон треугольника: 0 4 5
Треугольник построить нельзя

Введите длины сторон треугольника: -3 6 5
Треугольник построить нельзя

Введите длины сторон треугольника: 2 1 8
Треугольник построить нельзя

Заметил язык после написания программы, извиняюсь
Может пригодится :) 
если можно построить - "yep", иначе  - "no"
#include <iostream>
#include <conio.h>
using namespace std;
void triangleOptimal(int m, int n, int k) 
{
   if(k<0 || m<0 || n<0) 
   {
      cout << "no";
   } 
   else 
   {
      if(k*k == m*m + n*n) 
      {
         cout << "yep";
      } 
      else
      {
         cout << "no";
      }
   }
}
int main()
{
   int a,b,c;
   cin >> a;
   cin >> b;
   cin >> c;
   triangleOptimal(a,b,c);
   _getch();  
    return 0;
}