program tam_giac;

uses crt;

var a, b, c : integer;

begin

clrscr;

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

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

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

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

writeln(a:3, b:3, c:3,' la do dai ba canh tam giac')

else writeln(a:3, b:3, c:3,' khong la do dai ba canh tam giac');

readln

end.

Program baitap;

Uses crt;

Var a,b,c:real;

Begin

Clrscr;

Write('Nhap lan luot 3 canh tam giac:');

Readln(a,b,c);

If (a+b>c and a+c>b and b+c>a) then writeln('Ba canh la canh cua mot tam giac') 

Else writeln('Ba canh khong la canh cua mot tam giac');

Readln

End.