B1: nhập 3 cạnh tam giác $(a,b,c)$ với dữ liệu là số thực

B2: nếu a+b>c và b+a>c và c+a>b thì 3 cạnh đó là 3 cạnh tam giác

       ngược lại thì ba cạnh đó không phải là 3 cạnh tam giác

program tamgiac;

                var a,b,c: integer;

                begin

                write('Nhap canh a= ');readln(a);

                write('Nhap canh b= ');readln(b);

                write('Nhap canh c= ');readln(c);

                If (a>b+c) or (b>a+c) or (c>a+b) then writeln(a:5:2,b:5:2,c:5:2,' la 3 canh cua tam giac')

                else writeln(a:5:2,b:5:2,c:5:2,' khong phaila 3 canh cua tam giac')

                  readln

           End.

xin ctlhn