Uses crt;
Var a, b, c: longint;
Begin
Clrscr;
Write('Nhap a = '); readln(a);
Write('Nhap b = '); readln(b);
Write('Nhap c = '); readln(c);
If (a=b) and (b=c) and (c=a) then writeln('La tam giac deu')
Else writeln('Khong la tam giac deu');
Readln
End.