2 stejne

Program HelloWorld(output);
var i, j,N: integer;
 R: array [1,2,3,4,5,6] of integer;
 Q: boolean;
begin
  N:=6;
  Q:=False;
  i:=0;
  j:=0;
  repeat j:=j+1; i:=j+1;
        while not i=N do if R[j]=R[i] then Q:=True; i:=i+1;

  until i=(N-1);
  writeln(i,j);
end.