uses crt;
var a,b,c: integer;
function kt(a,b,c:integer):boolean;
begin
if (a+b>c) and (b+c>a) and (a+c>b) then exit(true);
exit(false);
end;
begin
clrscr;
write ('nhap canh thu nhat cua tam giac: '); readln (a);
write ('nhap canh thu hai cua tam giac: '); readln (b);
write ('nhap canh thu ba cua tam giac: '); readln (c);
if kt(a,b,c)=true then writeln('Day la 3 canh cua tam giac')
else writeln('Day khong phai la 3 canh cua tam giac')
readln;
end.
