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