uses crt; var a,b,c:real; begin clrscr; write('Nhap a: '); readln(a); write ('Nhap b: '); readln(b); write('Nhap c: '); readln(c); if ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then writeln(a:4:2,',',b:4:2,',',c:4:2, ' la ba canh cua tam giac') else writeln(a:4:2,',',b:4:2,',',c:4:2, ' khong phai la ba canh cua tam giac'); readln end.
