uses crt; var a,b,c:longint; function kt(a,b,c:longint):boolean; begin if(a+b>c)and(b+a>c)and(c+a>b)then kt:=true else kt:=false; end; begin clrscr; readln(a,b,c); if kt(a,b,c)=true then writeln(‘La 3 canh tam giac’) else writeln(‘Khong phai ba canh tam giac’); readln end.
Đây nha!
uses crt;
var a,b,c:longint;
function kt(a,b,c:longint):boolean;
begin
if(a+b>c)and(b+a>c)and(c+a>b)then kt:=true else kt:=false;
end;
begin
clrscr;
readln(a,b,c);
if kt(a,b,c)=true then writeln(‘La 3 canh tam giac’)
else writeln(‘Khong phai ba canh tam giac’);
readln
end.