Uses crt;
Var
    a,b,c: LongInt;
Begin
    clrscr;
    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)and(a+c>b)and(b+c>a) then
        if (a=b)or(c=b)or(c=a) then 
            writeln(a,', ',b,' va ',c,' la do dai 3 canh cua 1 tam giac can')
        else writeln(a,', ',b,' va ',c,' khong phai do dai 3 canh cua 1 tam giac can'); 
    else writeln(a,', ',b,' va ',c,' khong phai do dai 3 canh cua 1 tam giac'); 
    readln;
End.

uses crt;

var a, b, c : integer;

begin

clrscr;

write('nhap canh a, b, c : ');readln(a, b, c);

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

if (a = b) or (b = c) or (a = c) then

writeln('ba canh la tam giac can')

else writeln('khong la ba canh tam giac can')

else writeln('khong la so dai canh tam giac');

readln

end.