Курсовая работа / Новая папка (2) / Курсовая / main_program

uses crt,vypuskniki;
label 0,1;
var n:integer;
begin
   assign(f,'vypusk.txt');
   1:clrscr;
   gotoXY(32,8);  writeln('‘¤Ґ« ©вҐ ўлЎ®а');
   gotoXY(30,9);  writeln('1 - ‚ў®¤ § ЇЁбЁ');
   gotoXY(30,10); writeln('2 - ‚лў®¤ § ЇЁбЁ');
   gotoXY(30,11); writeln('3 - „®Ў ўЁвм § ЇЁбм');
   gotoXY(30,12); writeln('4 - ђҐ¤ ЄвЁа®ў вм § ЇЁбм');
   gotoXY(30,13); writeln('5 - “¤ «Ёвм § ЇЁбм');
   gotoXY(30,14); writeln('6 - Џ®ЁбЄ');
   gotoXY(30,15); writeln('7 - ‚л室');
   gotoXY(27,16); writeln('-->');
   read(n);
  case n of
    1:begin Vvod;    goto 1 end;
    2:begin Vyvod;   goto 1 end;
    3:begin Dobavit; goto 1 end;
    4:begin Redakt;  goto 1 end;
    5:begin Delete;  goto 1 end;
   { 6:begin Poisk;   goto 1 end; }
    7:goto 0;
    else goto 1 end;
0:end.