Курсовая работа / Новая папка (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.