if a=a
או משהו כזה

program riboa_latini;
uses wincrt;
const
     n=5;
var
   i,j,x,z:integer;
   a:array of integer;
   found:boolean;
begin
     randomize;
     for i:=1 to n do
         for j:=1 to n do
             a:=random (100) +1;
     writeln(' äîòøê ùðáçø äåà ');
     for i:=1 to n do
         begin
              for j:=1 to n do
                  write(a:4);
              writeln;
         end;
     found:=false;
     i:=1;
     while (found=false) and (i<=n) do
         begin
              j:=1;
              while (found=false) and (j<=n) do
                    begin
                         while (found=false) and (x<=n) do
                               begin
                                    if (a=a) and (j<>x)
                                       then found:=true;                                
                                    x:=x+1;
                               end;
                         if found=false then
                            begin
                                 z:=1;
                                 while (found=false) and (z<=n) do
                                       begin
                                            if (a=a) and (i<>z)
                                               then found:=true;                                
                                            z:=z+1;
                                       end;
                            end;
                         j:=j+1;
                    end;
         i:=i+1;
         end;
if found=false
       then writeln(' øéáåò ìèéðé ')
       else writeln(' ìà øéáåò ìèéðé ');
end.
              

found:=(i<>z);