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 -) ',

    





Forekc.ru
, , , , , , , , , ,