program tam_giac;
uses crt;
var a,b,c:integer;
{---Chuong-trinh-con---}
function kt(a,b,c:integer):boolean;
begin
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a)
then kt:=true
else kt:=false;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap so dai canh thu nhat: '); readln(a);
write('Nhap so dai canh thu hai: '); readln(b);
write('Nhap so dai canh thu ba: '); readln(c);
if kt(a,b,c) then write('La ba canh cua tam giac')
else write('Khong phai la ba canh cua tam giac');
readln;
end.
