, - 7


' '

,' ');

var

{ , }

a,a1:array[0..9] of integer; {10 - }

b,b1:array[0..99] of integer; {100 - }

c,c1:array[0..999] of integer; {1000 - }

d,d1:array[0..9999] of integer; {10000 - }

f:byte; { ,

-

:

1 - (-

);

2 - -

;

3 - -

}.

k:char;

item:byte;

begin

clrscr;cursoroff; { }

repeat

textbackground(0);clrscr;

{fill - , }

fill(lightgray,1,1,2,80,25,' ');

{menuv - , }

menuv(25,10,menu,lightgray,black,red,lightgreen,yellow,'',item,double);

{item - , }

case item of

1:example;

2:begin

{getshadow - , }

getshadow;

{** 10 **}

{box - , }

box(1,0,80,18,1,15,double,'10 ');

{ upor,

}

upor(a,a);

{ make, }

make(3,10,a,a1,1);

{** 10 () **}

{ notupor, () }