Program Tam_Giac;

Uses Crt;

Var a,b,c : Real;

Begin

Clrscr;

Writeln('Nhap do dai canh thu nhat cua tam giac la:');Readln(a);

Writeln('Nhap do dai canh thu hai cua tam giac la:');Readln(b);

Writeln('Nhap do dai canh thu ba cua tam giac la:');Readln(c);

If ( a + b > c ) and ( b + c > a ) and ( c + a > b ) 

Then writeln('La do dai ba canh cua tam giac')

Else writeln('Khong phai la do dai ba canh cua tam giac');

Readln

End.

var a,b,c: integer;

begin

write('nhap do dai canh thu nhat:'); readln(a);

write('nhap do dai canh thu hai:'); readln(b);

write('nhap do dai canh thu ba:'); readln(c);

if (a+b<c) or (a+c<b) or (b+c<a) then write('3 gia tri duoc nhap khong phai la ba canh cua tam giac') else write('3 gia tri duoc nhap la ba canh cua tam giac');

readln;

end.