Procedure Vhod;

 

Var i:integer;

priv:string;

 

Begin{procedure}

ClrScr;

priv:=' Вы запустили программу электронного учебника.';

TextColor(White);

GoToXY(20,5);

For i:=1 to 91 do

Begin{for}

Case i of

39: Begin Writeln; GoToXY(35,6); End;

48: Begin Writeln; GoToXY(18,7); End;

Else

Begin

Write(priv[i]);

Delay(500);

End

End;{Case}

End;{for}

TextColor(Red);

GoToXY(27,25);

Write('Для входа нажмите Enter');

Readkey;

End;{procedure}

 

{Procedure OpDan}

 

Var device, mode, x,count ,y, n_menu,

p_kur, kol_kur, n_pun,

pr, Osh, ocen2, y1, prizn, kol_raz, kol_stud,

variant, d_ki, t_ki, ch_ki, p_ki:integer;

proc, kur,key:char;

size:word;

w, p, n:pointer;

f, f1, f_rez_gr, f_sp_gr:text;

f_name_p, f_name, stroka, stroka_rez, perem,

uslovie, name, grup, ocen:string;

mas_pun,mas_pun,mas_poisk:array[1..20]of string;