' '
,' ');
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, () }

    





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