DayCoPhaiTamGiacKhong

(*
  Nhap 3 so a b c bat ki. Hay kiem tra xem ba so do co the la do dai cua cac canh cua mot tam giac hay khong. Thong bao len man hinh : thoa man , khong thoa man
  trong cac truong hop tuong ung.
*)

USES crt;
VAR a, b, c: Integer;


(***************************************************************)

Procedure nhap;


Begin
        write('Nhap vao do dai cua ba canh tam giac : ');
        read(a);
        read(b);
        read(c);

End;

(***************************************************************)

Function isTamGiac(a, b, c: integer): boolean;

Begin
        if (a > abs(b-c)) and ( a < (b + c)) then isTamGiac := true
        else isTamGiac := false;
End;

(***************************************************************)

BEGIN
        clrscr;
        nhap;
        if ( isTamGiac(a, b, c)) then writeln('Day la tam giac.')
        else writeln('Day khong phai la tam giac');

END.