Uses Crt Var byte Begin clrscr read if then write it triangle else wri

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
Uses Crt;
Var
a, b, c : byte;
Begin
clrscr;
read(a,b,c);
if ((a+b)>=c) then write('it''s triangle')
else write('it is not a triangle');
readkey;
End.