Program baitap;

Uses crt;

Var a,b,c:integer;

Begin

Clrscr;

Write('Nhap vao lan luot 3 so nguyen:');

Readln(a,b,c);

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

     If a=b and b=c  then Write('Do la ba canh cua tam giac deu')

                               Else Write('Do la ba canh cua tam giac thuong')

Else Write('Do khong phai la ba canh cua mot tam giac');

Readln

End.

uses crt;

var a,b,c:integer;

begin

clrscr;

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

write('nhap c: ');readln(c);

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

begin

if (a=b) and (b=c) then write('hop thanh tam giac deu')

else write('hop thanh tam giac thuong');

end

else write('khong hop thanh tam giac');

readln;

end.