Program k1;
uses crt,modul;

{////////////////////////// Main Program     /////////////////// ////////////////}

Begin
textbackground(9);

repeat

      privet;
      c := readkey;
  case c of
         '1' : Test_menu;
         '2' : Menu_users;
	       '3' : menu_quest;
	       '4' : Dir_user;
	       '5' : author ;
	end;
until c = '6';

end.