giả sử em là giáo viên, viết chương trình quay số may mắn nếu trúng số báo danh của bạn nào thì mời bạn có số báo danh đó lên kiểm tra bài cũ (nếu mà cô mình chơi kiểu này chắc tim bay ra khỏi lồng ngực luôn ?_?)
program ngau_nhien; uses crt; var a: byte; begin clrscr; repeat randomize; a:=random(32); until a>0; textcolor (lightred); {cho màu đỏ tượng trưng cho ám ảnh} writeln ('moi ban co so bao danh so: ',a); readln; end.
program QSMM; uses crt; var n: longint; begin clrscr; repeat randomize; n:=random(42); until n>0; writeln ('moi ban co so bao danh so: ',n); readln; end.