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

uses crt,vypuskniki,graph;
label 0,1;
var n,drive,mode:integer;
begin
Drive:=Detect;
InitGraph(Drive,Mode,'');
if GraphResult<>grok then Halt(1);
SetBkColor(4);
SetTextStyle(0,0,4);
OutTextXY(100,180,'Kursova robota');
SetTextStyle(0,0,3);
OutTextXY(230,220,'Variant-10');
SetTextStyle(0,0,2);
OutTextXY(380,300,'Makarenko O. V.');
readln;
Closegraph;
assign(f,'vypusk.dat');
1:clrscr;
gotoXY(32,8); write('‘¤Ґ« ©вҐ ўлЎ®а');
gotoXY(30,9); write('1 - ‚ў®¤ § ЇЁбЁ');
gotoXY(30,10); write('2 - ‚лў®¤ § ЇЁбЁ');
gotoXY(30,11); write('3 - „®Ў ўЁвм § ЇЁбм');
gotoXY(30,12); write('4 - ђҐ¤ ЄвЁа®ў вм § ЇЁбм');
gotoXY(30,13); write('5 - “¤ «Ёвм § ЇЁбм');
gotoXY(30,14); write('6 - Џ®ЁбЄ Ї® б।­Ґ¬г Ў «г');
gotoXY(30,15); write('7 - Џ®ЁбЄ ўлЇгбЄ­ЁЄ®ў гз йЁебп ў ‚“‡Ґ');
gotoXY(30,16); write('8 - ‚л室');
gotoXY(27,17); write('-->');
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:begin Poisk1; goto 1 end;
8:goto 0;
else goto 1 end;
0:end.