Счетные множества

uses
  crt;
 
const
  n = 1000;
  m = 1000;  
 
type
  index = record
    val: string;
    ind: integer;
  end;
 
var
  a: array [1..n + 1, 1..m + 1] of index;
  i, j, k, k1, k2, k3, n1, n2, od, nod: integer;
  s, ss: string; 
 
begin
  k := 2;
  k1 := 4;
  k2 := 2;
  k3 := 4;
  nod := 3;
  od := 5;
  a[1, 1].ind := 1;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      str(i, s);
      str(j, ss);
      a[i, j].val := s + '/' + ss;
      
      if (i > 1) and (j = 1) and (i <> n1 + 1) then
      begin
        n1 := i;
        a[n1, j].ind := a[n1 - 1, j].ind + k;
        inc(k, 4);
        a[n1 + 1, j].ind := a[n1, j].ind + 1;
      end;
      if (j > 1) and (i = 1) and (j <> n2 + 1) then
      begin
        n2 := j;
        a[i, n2].ind := a[i, n2 - 1].ind + 1;
        a[i, n2 + 1].ind := a[i, n2].ind + k1;
        inc(k1, 4);
      end;
      
      if (j > 1) and ((i > 1)) then
        if not odd(i) then
        begin
          if not odd(j) then
          begin
            a[i, j].ind := a[i, j - 1].ind + k2;
            inc(k2, 4);
          end
          else
            a[i, j].ind := a[i, j - 1].ind + nod;
        end
        else
        if odd(j) then
        begin
          a[i, j].ind := a[i, j - 1].ind + k3;
          inc(k3, 4);
        end
        else
          a[i, j].ind := a[i, j - 1].ind + od;
    //  write(a[i, j].val:7); для вывода на экран (выводит долго!)
    end;
    if not odd(i) then
      nod := nod + 4 
    else
    if i > 1 then
      od := od + 4;  
    k2 := 2;
    k3 := 4;
  //  writeln; для вывода на экран
 //   writeln; для вывода на экран
  end; 
  write('Введите значение для поиска: ');
  readln(s);
  for i := 1 to n do
    for j := 1 to m do
      if a[i, j].val = s then
        writeln('Номер элемента: ', a[i, j].ind);
end.

var
  a, b, d, s: Integer;
 
begin
  ReadLn(a, b);
  d := a + b - 1;
  s := d * (d - 1) div 2;
  if d mod 2 = 0 then
    inc(s, a)
  else
    inc(s, b);
  WriteLn(s);
  ReadLn;
end.