Program BD; Uses crt,error,oform,inputinf; {______________________________________________________________} {||||||||||||||||||||||Процедуры меню||||||||||||||||||||||||||} procedure meny; var flagexit,flagmeny1,flagmeny2 : boolean; menuvibor,menuvibor2,menuvibor3 : byte; begin flagexit:=true; repeat mainmeny; readln(menuvibor); case menuvibor of 1: {======================enter 1=========================} begin clrscr; flagmeny1:=false; repeat clrscr; podmenu1; readln(menuvibor2); case menuvibor2 of 1: begin clrscr; newbase; flagmeny1:=false; end; 2: begin clrscr; addbase; flagmeny1:=false; end; 3: begin clrscr; creativbase; flagmeny1:=false; end; 4: begin clrscr; outputbase; flagmeny1:=false; end; 5: begin clrscr; flagmeny1:=true; end; else begin clrscr; error1; readln; flagmeny1:=false; end end; until flagmeny1; flagexit:=false; end; {______________________________________________________} 2: {======================enter 2========================} begin clrscr; flagmeny2:=false; repeat clrscr; podmenu2; readln(menuvibor3); case menuvibor3 of 1: begin clrscr; spravka; flagmeny2:=false; end; 2: begin clrscr; addspravka; flagmeny2:=false; end; 3: begin clrscr; creatisprav; flagmeny2:=false; end; 4: begin clrscr; outputspravka; flagmeny2:=false; end; 5: begin clrscr; flagmeny2:=true; end; else begin clrscr; error1; readln; flagmeny2:=false; end end; until flagmeny2; flagexit:=false; end; {______________________________________________________} 3: {=====================enter 3=========================} begin clrscr; veda; flagexit:=false; end; {______________________________________________________} 4: {=========================enter 4======================} begin flagexit:=true; end; {______________________________________________________} else begin clrscr; error1; readln; flagexit:=false; end end; until flagexit; end; {______________________________________________________________} {||||||||||||||||||||||||||||Программа|||||||||||||||||||||||||} Begin Clrscr; meny; End. {_____________________________|thr end|_________________________}