viết chương trình nhập vào 3 số nguyên dương a, b, c từ bàn phím in ra màn hình kết quả 3 số đó có thể là độ dài 3 cạnh tam giác hay không?

uses crt;

var a,b,c:integer;

begin

clrscr;

write(‘a=’); readln(a);

write(‘b=’); readln(b);

write(‘c=’); readln(c);

if (a>0) and (b>0) and (c>0) then

begin

if (a+b>c) and (a+c>b) and (b+c>a) then writeln(‘day la 3 canh trong mot tam giac’)

else writeln(‘day khong la 3 canh trong mot tam giac’);

end

else writeln(‘vui long nhap 3 so lon hon 0’);

readln;

end.