Program game;
uses crt;
var may, you: string;
i: integer;
Begin
clrscr;
write (' HOM NAY HOC MON GI : '); readln;
randomize;
i:=random(10); {0,1,2,3}
case i of
2: may:=…;
1: may:=…;
0: may:=…;
3: may:=…
ELSE
may:='TIENG ANH'
end;
writeln(' BAN DA QUAY TRUNG MON: ', may);
readln;
End.