Miscellany

program asd;

var N : integer;
    temp : integer;
    i , j , z : integer;


type zmogus = record
  metai : integer;
  vardas : string[255];
  pavarde : string [255];
end;


procedure pradzia;
begin
//  write('N := ');
//  readln(N);
  N := 4;
end;


function sukuriam(kokie : integer) : integer;
var j : integer;
var resultatas : integer;
begin
  resultatas := 1;
  for j := 1 to (kokie-1) do begin
    resultatas := resultatas * 10;
  end;
  sukuriam := resultatas;
end;

function dydis(x : integer) : integer;
var dyd : integer;
    pabaiga : boolean;
begin
  pabaiga := FALSE;
  dyd := 1;
  while (not pabaiga) do begin
    x := x div 10;
    if (x = 0) then begin
      dydis := dyd;
      exit;
    end;
    inc(dyd);
    
    
  end;



end;

function intarr(x,index : integer) : integer;
var j : integer;
    pabaiga : boolean;
    dabartinis : integer;
    i : integer;
begin
  pabaiga := FALSE;
  j := x;
  i := 1;
  while (not pabaiga) do begin
    dabartinis := j mod 10;
    j := j div 10;
    if (i = index) then begin
      intarr := dabartinis;
      exit;
    end;
    inc(i);
  end;
  
  

end;



begin
  pradzia;
  for i := sukuriam(N) to sukuriam(N+1)-1 do begin
    for j := 1 to N do begin
      for z := j+1 to N do begin
        if (intarr(i,j) = intarr(i,z)) then begin
          writeln(i);
          j := N;
          z := N;
        end;
      end
    end;
  end;
  readln;
end.