program vezer;

 {A feladatunk a 8 vezer problema megoldasa.}

  uses newdelay,crt,dos;

  const vezerdb=8;
        sordb=8;
        sorszelesseg=5;
        kockamag=2;
  Type  eredmeny=array[1..vezerdb] of  integer;
        pozicio=record
                    sor,oszlop:integer;
                    fekete:boolean;
               end;
        poziciok=array[1..vezerdb,1..vezerdb] of pozicio;
        kocka=array[1..kockamag] of string[20];
  Const k:kocka=('²²²²²',
                 '²²²²²');


 var poz:poziciok;
     hi,mi,si,ci,ha,ma,sa,ca:word;
     i1,i2,i3,i4,i5,i6,i7,i8:integer;
     jo:boolean;
     x:eredmeny;
     i,j:integer;
 procedure oraindul;
 begin
    gettime(hi,mi,si,ci);
     end;
 procedure oraallj;
   var h,m,s,c:word;
 begin
    gettime(ha,ma,sa,ca);

    If ca>=ci then c:=ca-ci
                else begin  c:=ca+100-ci;
                            sa:=sa-1;
                     end;
    If sa>=si then s:=sa-si
                else begin  s:=sa+60-si;
                            ma:=ma-1;
                     end;
    If ma>=mi then m:=ma-mi
                else begin  m:=ma+60-mi;
                            ha:=ha-1;
                     end;
    h:=ha-hi;
    gotoxy(1,24);
    writeln('Eltelt id‹:',h,' ',m,' ',s,' ',c);

 end;
 procedure pozinic(var poz:poziciok);
   {sakktablan a helyek}

   var i,j:integer;
 begin
    for i:=1 to sordb do
      for j:=1 to sordb do
      begin
          poz[i,j].sor:=i*5+10;
          poz[i,j].oszlop:=j*2+4;
          poz[i,j].fekete:=((i+j) mod 2)=1;
      end;

 end;
 procedure vezerki(i,j:integer);
 begin
    Highvideo;
    textcolor(black);
    gotoxy(poz[i,j].sor+2,poz[i,j].oszlop);
    write('±');
    gotoxy(poz[i,j].sor+1,poz[i,j].oszlop+1);
    write('±±±');
    textcolor(white);
    Lowvideo;
 end;

 function rosszeset(i:integer; melyik:integer):boolean;
 var j:integer;
 begin
    j:=1;
    While (j<1) and not (melyik=x[j]) or (abs(i-j)=(melyik-X[j])) do
       inc(j);
       rosszeset:=(j<i);
 end;

 procedure joeset(i:integer; melyik:integer; van:boolean);
 begin
    melyik:=x[i]+1;
    While (melyik<=8) and rosszeset(i, melyik) do
       inc(melyik);
    van:=(melyik=8);
 end;

 procedure kockaki(i,j:integer);
 begin
          gotoxy(poz[i,j].sor,poz[i,j].oszlop);
           if poz[i,j].fekete then     textcolor(lightgray)
                              else textcolor(white);
              write(k[1]);
              gotoxy(poz[i,j].sor,poz[i,j].oszlop+1);
              write(k[2]);
 end;
 procedure sakktablaki;
    var i,j:integer;
 begin
    gotoxy(poz[1,1].sor-1,poz[1,1].oszlop-1);
    write('É') ;
    for i:=1 to sordb*sorszelesseg+1 do
    begin
      write('Í');
    end;
    write('»');

    gotoxy(poz[1,sordb].sor-1,poz[1,sordb].oszlop+kockamag);
    write('È');
    for i:=1 to sordb*sorszelesseg+1 do
    begin
      write('Í');
    end;
    write('¼');

    for i:=1 to sordb*kockamag do
    begin
      gotoxy(poz[1,1].sor-1,poz[1,1].oszlop+i-1);
      write('º');
    end;
    for i:=1 to sordb*kockamag do
    begin
      gotoxy(poz[sordb,1].sor+sorszelesseg+1,poz[sordb,1].oszlop+i-1);
      write('º');
    end;



    for i:=1 to sordb do
       for j:=1 to sordb do
       begin
          kockaki(i,j)
       end;
 end;

 var melyik:integer;
     van:boolean;


begin
  TextBackGround(blue);
  TextColor(white);
  clrscr;
  writeln;
  writeln('Vez‚r elhelyez‚si probl‚ma':52);
  writeln;
  writeln;
  pozinic(poz);
  sakktablaki;

  oraindul;

    {itt kovetkezik a vezerek elhelyezese}
    i:=1;
    For j:=1 to 8 do
       x[j]:=0;
       While (i>=1) and (i<=8) do
       begin
          joeset(i, melyik, van);
          If van then
                   begin
                      x[i]:=melyik; inc(i);
                   end
                 else
                   begin
                   x[i]:=0; dec(i);
                   end;
       end;

  oraallj;

  for i:=1 to vezerdb do vezerki(i,i);
  readln;

end.