Program FNG;
Uses crt;
Var A, B, C: Byte;
Begin
Clrscr;
Begin
Randomize;
A:=random(2);
B:=random(2);
C:=random(2);
End;
Writeln('A = ',a);
Writeln('B = ',b);
Writeln('C = ',c);
Writeln('Ket qua la: ');
If (a=b) and (b=c) then Write('Hoa');
If (a=b) and (b<>c) then Write('C thang');
If (a=c) and (c<>b) then Write('B thang');
If (b=c) and (a<>c) then Write('A thang');
Readln;
End.