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;