
program dama;

const n=8;
var a : array [1..n] of integer;

procedure umisti (k:integer);
var i,j,p:integer;
  ok:boolean;
begin
  for i:=1 to n do begin
    a[k]:=i;
    ok:=true;

    for p:=1 to k-1 do
      if (a[p]=i) or (a[p]=i-(k-p)) or (a[p]=i+k-p) then ok:=false;
    
      if ok = true then begin
       if k