, - 8


notupor(a,a);

{ make, }

make(8,10,a,a1,2);

{** 10 **}

{ make, }

make(13,10,a1,a1,3);

{ Esc}

repeat

k:=readkey;

until k=#27;

end;

3:begin

{getshadow - , }

getshadow;

{box - , }

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

{ 100 }

upor(b,b);

make(3,100,b,b1,1);

{ 100 () }

notupor(b,b);

make(8,100,b,b1,2);

{ 100 }

make(13,100,b1,b1,3);

repeat k:=readkey; until k=#27;

end;

4:begin

{getshadow - , }

getshadow;

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

{ 1000 }

upor(c,c);

make(3,1000,c,c1,1);

{ 1000 () }

notupor(c,c);

make(8,1000,c,c1,2);

{ 1000 }

make(13,1000,c1,c,3);

repeat

k:=readkey;

until k=#27;

end;

5:begin

getshadow;

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

{ 10000 }

upor(d,d);

make(3,10000,d,d1,1);

{ 10000 () }

notupor(d,d);

make(8,10000,d,d1,2);

{ 10000 }

make(13,10000,d1,d,3);

repeat

k:=readkey;

until k=#27;

end;

6:begin

{getshadow - , }

getshadow;

{ }

box(10,5,70,15,lightgray,0,double,' ');

putshadow(10,5,70,15);

textcolor(brown);

gotoxy(12,7);write(' ');

gotoxy(21,8);write('" "');

gotoxy(30,9);write(' : ');

gotoxy(18,10);write(' " "');

gotoxy(17,11);write(' 95--21');

textcolor(red);gotoxy(3,25);write('Esc - ');

repeat

k:=readkey;

until k=#27;

end;

end;

until item=7;

end.

{********************* ********************}