program lab2 var ir jr value integer AL array 13 of integer begin writ

program lab2;
var i, K, ir, jr, value: integer;
AL, J: array[0..13] of integer;

begin

  writeln('AL = ', AL);
  writeln('J = ', J);
  
  read(ir); 
  read(jr);
  
  for i := 0 to 13 do begin
    if AL[i] = 0 then begin
      K := J[i];
      continue;
    end;
    if((J[i] = jr) and (K = ir)) then begin
      value := Al[i];
      break;
    end;
  end;
  
  writeln('A[', ir, ',', jr, ']', ' = ', value);
end.