Viết chương trình nhập độ dài a,b,c. Kiểm tra xem đây có phải là độ dài ba cạnh của một tam giác hay không? (a,b,c được nhập từ bàn phím)

program ct;

uses crt;

var a,b,c:integer;

begin clrscr;

   write('Nhap do dai ba canh cua tam giac: '); readln(a,b,c);

   if (a+b>c) and (a+c>b) and (b+c>a) then write('Day la do dai ba canh tam giac');

                                                          else write('Day ko la do dai ba canh tam giac');

readln;

end.

Học tốt!

program canhtamgiac;

uses crt;

var a,b,c : integer;

begin

clrscr;

write(nhap so a= ');readln(a);

write(nhap so b= ');readln(b);

if a+b>c and a+c>b andb+c>a then

write('a,b,c la canh tam giac') esle

write('a,b,c khong phai canh tam giac');

readln;

end.