tyvj/tyvj1093.pas

   1 var
   2 a:array [1..9,1..9] of longint;
   3 b:array [1..9] of boolean;
   4 i,j,k,l,p,n:longint;
   5 f:boolean;
   6
   7 begin
   8    readln(n);
   9    for p:=1 to n do
  10    begin
  11       f:=true;
  12       for i:=1 to 9 do
  13          for j:=1 to 9 do
  14             read(a[i,j]);
  15       for i:=1 to 9 do
  16       begin
  17          fillchar(b,sizeof(b),false);
  18          for j:=1 to 9 do
  19             if b[a[i,j]]=false then b[a[i,j]]:=true else begin f:=false; break; end;
  20          if not f then break;
  21          fillchar(b,sizeof(b),false);
  22          for j:=1 to 9 do
  23             if b[a[j,i]]=false then b[a[j,i]]:=true else begin f:=false; break; end;
  24          if not f then break;
  25       end;
  26       if not f then begin writeln('Wrong'); continue; end;
  27       for i:=1 to 3 do
  28       for j:=1 to 3 do
  29       begin
  30          fillchar(b,sizeof(b),false);
  31          for k:=(i-1)*3+1 to i*3 do
  32             for l:=(j-1)*3+1 to j*3 do
  33                if b[a[k,l]]=false then b[a[k,l]]:=true else begin f:=false; break; end;
  34         if not f then break;
  35       end;
  36       if not f then begin writeln('Wrong'); continue; end;
  37       writeln('Right');
  38    end;
  39 end.