, - 6


x}

mas[j + 1] := mas[j];

mas[j]:=x;

end;

end;

end;

{ }

for i:=1 to 20 do

begin

textcolor(lightcyan); gotoxy(33,i+3); write(i);

textcolor(yellow); gotoxy(37,i+3); write(mas[i].name);

textcolor(lightred); gotoxy(52,i+3); writeln(mas[i].num);

end;

{

, }

textcolor(lightgreen); gotoxy(61,6); write(':');

textcolor(lightgray); gotoxy(75,6); write(k_sr);

textcolor(lightgreen); gotoxy(61,8); write(':');

textcolor(lightgray); gotoxy(75,8); write(k_p);

repeat

key:=' '; if keypressed then key:=readkey;

case key of

{#59 - F1}

#59:begin

{ }

{putshadow+box - }

putshadow(15,7,65,15);box(15,7,65,15,lightgray,0,double,'');

textcolor(red);

gotoxy(21,9); write(' , ');

gotoxy(21,10); write(' . -');

gotoxy(21,11); write(' ');

gotoxy(21,12); write(' .');

textcolor(yellow);gotoxy(50,15);write('Enter - ');

end;

{#13 - Enter}

#13:getshadow;

end;

{#27 - Esc}

until key=#27;

end;

{**********************************************************

************************ **************

**********************************************************}

const

{ - }

menu:array[1..7] of string=(' ',' (10 -)',

' (100 -) ',

' (1000 -) ',

' (10000 -) ',