uses crt,graph;
label 5;

type pointtype=record
      x,y:integer;
     end;

var i,j,i1,i2,i3,i4,i16,j16,dx,dy,dyu,dyd,dxm,s:longint;
    gd,gm:integer;
    massX,massY,mass1,mass2:array[1..1000] of longint;

    upX,upY,downX,downY,massij:array[1..1000,1..1000] of longint;

    mass:array[1..5] of pointtype;
    rec:pointtype;

    chisla,strk:string;

    pressedkey:char;

     p:pointer;

    mn1,mn2 :set of 1..100;

begin
gd:=vga;
gm:=vgahi;
initGraph(gd,gm,'');

{setbkcolor(3);
cleardevice;
}

dxm:=50;
dx:=250;
dy:=0;

setcolor(13);
setlinestyle(0,1,3);
setfillstyle(1,11);
bar(100,50,500,450);

{ўҐавЁЄ «м­лҐ}
line(100,50,100,450);
line(200,50,200,450);
line(300,50,300,450);
line(400,50,400,450);
line(500,50,500,450);

{Ј®аЁ§®­в «м­лҐ}
line(100,50,500,50);
line(100,150,500,150);
line(100,250,500,250);
line(100,350,500,350);
line(100,450,500,450);

setcolor(10);
line(95,45,505,45);
line(505,45,505,455);
line(95,45,95,455);
line(95,455,505,455);

massX[1]:=100;
massX[2]:=200;
massX[3]:=300;
massX[4]:=400;

massY[1]:=50;
massY[2]:=150;
massY[3]:=250;
massY[4]:=350;

 { ўбв ўЄ  вҐЄбв  }
s:=1;
setcolor(9);
settextstyle(1,0,3);
settextjustify(1,1);

mn1:=[];
randomize;
s:=1;
for i:=1 to 4 do
 begin
 for j:= 1 to 4 do
  begin

  massij[i,j]:=random(16)+1;

  if not(massij[i,j] in mn1)  then

   begin
    mn1:=mn1+[massij[i,j]];

    str(massij[i,j],chisla);
   outtextXY(massX[j]+50,massY[i]+50,chisla);
   delay(40);

   end
    else
     begin
      j:=j-1;
      s:=s-1;
     end;

  end;
  s:=s+1;

  if s=16 then goto 5;

 end;

5:

for i:=1 to 4 do
 begin
 for j:= 1 to 4 do
   if massij[i,j]=16 then
    begin
     i16:=i;
     j16:=j;
    end;
 end;

writeln('i=',i16);
writeln('j=',j16);

settextstyle(1,0,3);
settextjustify(1,1);
strk:='Nazhmite ENTER...';
setcolor(12);
outtextXY(312,24,strk);
setcolor(10);
outtextXY(310,20,strk);

i:=j16;
j:=i16;

setfillstyle(1,black);
bar(  (massX[i]+2), (massY[j]+1), (massX[i]+98), (massY[j]+98)  );

readln;

bar(0,0,600,43);

repeat
  setfillstyle(1,black);
  bar(  (massX[i]+2), (massY[j]+1), (massX[i]+98), (massY[j]+98)  );

  pressedkey:=readkey;

  { дг­ЄжЁп ЉЋЏ€ђЋ‚ЂЌ€џ }

 { imagesize(100,90,210,200);
 GetMem(p,40000);
 GetImage(100,90,210,200,p^);
 PutImage(170,120,p^,NormalPut);
 }

{____________________________________________________________________________}

if ((i=2) or (i=3)) and ((j=2) or (j=3))  then {ў­гваЁ}
 begin

  case ord(pressedkey) of
  {ўўҐае}  72:    begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)+100, (massX[i]+98), (massY[j]+98)+100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j+1;
                  end;

  {ў«Ґў®}  75:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)+100, (massY[j]+1), (massX[i]+98)+100, (massY[j]+98)  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                    i:=i+1;
                  end;

  {ўЇа ў®} 77:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)-100, (massY[j]+1), (massX[i]+98)-100, (massY[j]+98)  );

                     PutImage(massX[i], massY[j],p^,NormalPut);
                   i:=i-1;
                  end;

  {ў­Ё§}   80:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)-100, (massX[i]+98), (massY[j]+98)-100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j-1;
                  end;

  end;

 end;

{____________________________________________________________________________}

if ((i=2) or (i=3)) and ((j=1))  then {ўҐае­Ё© ап¤}
 begin

  case ord(pressedkey) of
  {ўўҐае}  72:    begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)+100, (massX[i]+98), (massY[j]+98)+100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j+1;
                  end;

  {ў«Ґў®}  75:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)+100, (massY[j]+1), (massX[i]+98)+100, (massY[j]+98)  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                    i:=i+1;
                  end;

  {ўЇа ў®} 77:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)-100, (massY[j]+1), (massX[i]+98)-100, (massY[j]+98)  );

                     PutImage(massX[i], massY[j],p^,NormalPut);
                   i:=i-1;
                  end;

  {ў­Ё§}   { 80:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)-100, (massX[i]+98), (massY[j]+98)-100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j-1;
                  end;     }

  end;

 end;

{____________________________________________________________________________}

if ((i=2) or (i=3)) and ((j=4))  then {­Ё¦­Ё© ап¤}
 begin

  case ord(pressedkey) of
  {ўўҐае}  {72:    begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)+100, (massX[i]+98), (massY[j]+98)+100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j+1;
                  end; }

  {ў«Ґў®}  75:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)+100, (massY[j]+1), (massX[i]+98)+100, (massY[j]+98)  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                    i:=i+1;
                  end;

  {ўЇа ў®} 77:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)-100, (massY[j]+1), (massX[i]+98)-100, (massY[j]+98)  );

                     PutImage(massX[i], massY[j],p^,NormalPut);
                   i:=i-1;
                  end;

  {ў­Ё§}   80:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)-100, (massX[i]+98), (massY[j]+98)-100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j-1;
                  end;

  end;

 end;

{____________________________________________________________________________}

if ((i=1)) and ((j=2) or (j=3))  then {«Ґўл© ап¤}
 begin

  case ord(pressedkey) of
  {ўўҐае}  72:    begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)+100, (massX[i]+98), (massY[j]+98)+100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j+1;
                  end;

  {ў«Ґў®}  75:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)+100, (massY[j]+1), (massX[i]+98)+100, (massY[j]+98)  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                    i:=i+1;
                  end;

  {ўЇа ў®} { 77:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)-100, (massY[j]+1), (massX[i]+98)-100, (massY[j]+98)  );

                     PutImage(massX[i], massY[j],p^,NormalPut);
                   i:=i-1;
                  end;   }

  {ў­Ё§}   80:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)-100, (massX[i]+98), (massY[j]+98)-100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j-1;
                  end;

  end;

 end;

{____________________________________________________________________________}

if ((i=4)) and ((j=2) or (j=3))  then {Їа ўл© ап¤}
 begin

  case ord(pressedkey) of
  {ўўҐае}  72:    begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)+100, (massX[i]+98), (massY[j]+98)+100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j+1;
                  end;

  {ў«Ґў®}  {75:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)+100, (massY[j]+1), (massX[i]+98)+100, (massY[j]+98)  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                    i:=i+1;
                  end;   }

  {ўЇа ў®} 77:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)-100, (massY[j]+1), (massX[i]+98)-100, (massY[j]+98)  );

                     PutImage(massX[i], massY[j],p^,NormalPut);
                   i:=i-1;
                  end;

  {ў­Ё§}   80:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)-100, (massX[i]+98), (massY[j]+98)-100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j-1;
                  end;

  end;

 end;

{____________________________________________________________________________}

if (i=1) and (j=1)  then {ўҐае­Ё© «Ґўл© гЈ®«}
 begin

  case ord(pressedkey) of
  {ўўҐае}  72:    begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)+100, (massX[i]+98), (massY[j]+98)+100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j+1;
                  end;

  {ў«Ґў®}  75:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)+100, (massY[j]+1), (massX[i]+98)+100, (massY[j]+98)  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                    i:=i+1;
                  end;

  {ўЇа ў®} {77:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)-100, (massY[j]+1), (massX[i]+98)-100, (massY[j]+98)  );

                     PutImage(massX[i], massY[j],p^,NormalPut);
                   i:=i-1;
                  end;   }

  {ў­Ё§}   {80:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)-100, (massX[i]+98), (massY[j]+98)-100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j-1;
                  end;  }

  end;

 end;

{____________________________________________________________________________}

if (i=4) and (j=1)  then {ўҐае­Ё© Їа ўл© гЈ®«}
 begin

  case ord(pressedkey) of
  {ўўҐае}  72:    begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)+100, (massX[i]+98), (massY[j]+98)+100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j+1;
                  end;

  {ў«Ґў®}  {75:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)+100, (massY[j]+1), (massX[i]+98)+100, (massY[j]+98)  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                    i:=i+1;
                  end;   }

  {ўЇа ў®} 77:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)-100, (massY[j]+1), (massX[i]+98)-100, (massY[j]+98)  );

                     PutImage(massX[i], massY[j],p^,NormalPut);
                   i:=i-1;
                  end;

  {ў­Ё§}   {80:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)-100, (massX[i]+98), (massY[j]+98)-100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j-1;
                  end; }

  end;

 end;

{____________________________________________________________________________}

if (i=1) and (j=4)  then {­Ё¦­Ё© «Ґўл© гЈ®«}
 begin

  case ord(pressedkey) of
  {ўўҐае}  {72:    begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)+100, (massX[i]+98), (massY[j]+98)+100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j+1;
                  end;  }

  {ў«Ґў®}  75:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)+100, (massY[j]+1), (massX[i]+98)+100, (massY[j]+98)  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                    i:=i+1;
                  end;

  {ўЇа ў®} {77:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)-100, (massY[j]+1), (massX[i]+98)-100, (massY[j]+98)  );

                     PutImage(massX[i], massY[j],p^,NormalPut);
                   i:=i-1;
                  end;  }

  {ў­Ё§}   80:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)-100, (massX[i]+98), (massY[j]+98)-100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j-1;
                  end;

  end;

 end;

{____________________________________________________________________________}

if (i=4) and (j=4)  then {­Ё¦­Ё© Їа ўл© гЈ®«}
 begin

  case ord(pressedkey) of
  {ўўҐае}  {72:    begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])+100, (massX[i]+100), (massY[j]+100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)+100, (massX[i]+98), (massY[j]+98)+100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j+1;
                  end;    }

  {ў«Ґў®}  {75:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])+100, (massY[j]), (massX[i]+100)+100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)+100, (massY[j]+1), (massX[i]+98)+100, (massY[j]+98)  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                    i:=i+1;
                  end;     }

  {ўЇа ў®} 77:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100));
                 GetMem(p,1000);
                 GetImage((massX[i])-100, (massY[j]), (massX[i]+100)-100, (massY[j]+100),p^);

                   bar(  (massX[i]+2)-100, (massY[j]+1), (massX[i]+98)-100, (massY[j]+98)  );

                     PutImage(massX[i], massY[j],p^,NormalPut);
                   i:=i-1;
                  end;

  {ў­Ё§}   80:
                  begin
                   setfillstyle(1,black);
                   setcolor(10);

                 imagesize((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100);
                 GetMem(p,1000);
                 GetImage((massX[i]), (massY[j])-100, (massX[i]+100), (massY[j]-100)+100,p^);

                   bar(  (massX[i]+2), (massY[j]+1)-100, (massX[i]+98), (massY[j]+98)-100  );
                    PutImage(massX[i], massY[j],p^,NormalPut);

                   j:=j-1;
                  end;

  end;

 end;

until not ord(pressedkey) in [0,72,75,77,80];

{goto 5;    }

readln;
closegraph;
end.