... Menu_doc(K:Integer);
Var Ten_Muc:array[1 6] of string;
I,Rong,Cao,a,b:integer;
Begin
Ten_Muc[1]:=&apos ;Do thi bac3/bac1';
Ten_Muc[2]:=&apos ;Do thi tham so';
Ten_Muc[3]:=&apos ;Do thi ... Xem_ve;
End;
{************Cac thu tuc ve Menu******************}
Procedure Chon_Doc;
Var TT:integer;
Begin
Menu_doc(tt);
While true do
Begin
Ch:=readkey;
Case Ch of
#72 :Begin
tt:=tt-1;
if tt<1 ... Ve _Do_ Thi_Tham_so(c1,h1,c2,h2);
End;
3:Begin
Beep;
Ve_Doc_cuc(c1,h1,c2,h2,Mau);
End;
4:Begin
Beep;
Star;
ttn:=1;
Beep;
End;
5:Begin
Beep;
Da_Dien_Deu;
Beep;
ClearDevice;
Menu_Doc(tt);
...