с++ Шашку — в дамки

На шахматной доске (8×8) стоит одна белая шашка. Сколькими она может пройти в дамки?

(Белая шашка ходит по диагонали. на одну клетку вверх-вправо или вверх-влево. Шашка проходит в дамки, если попадает на верхнюю горизонталь.)

Входные данные

Вводятся два числа от 1 до 8: номер номер столбца (считая слева) и строки (считая снизу), где изначально стоит шашка.

Выходные данные

Вывести одно число — количество путей в дамки.

Примеры

Ввод

Вывод

3 7

2

1 8

1

3 6

4

во всех программах у меня будет использоваться процедура swap:

procedure swap(a: ^real; b: ^real); var    t: real; begin    t : = a^;     a^ : = b^;     b^ : = t; end;

swap(x,y) - меняет местами значения x и y.

1.

var    a: array[1..100] of real;     i, j, n: integer;

begin

    readln(n);     for i : = 1 to n do      read(a[i]);     for j : = 1 to (n div 2) - 1 do      for i : = 1 to (n div 2) - j do          swap(a[i], a[i + 1]);     for j : = 1 to (n div 2) - 1 do      for i : = (n div 2) + 1 to n - j do          swap(a[i], a[i + 1]);     for i : = 1 to n do      writeln(a[i])end.

2.

var    a: array[1..100] of real;     i, n: integer;

begin

    readln(n);     for i : = 1 to n do      read(a[i]);     for i : = 1 to n - 1 do      swap(a[i], a[i + 1]);     for i : = 1 to n do      writeln(a[i])end.

3.

var

    a: array[1..100] of real;     i, n: integer;

begin

    readln(n);     for i : = 1 to n do      read(a[i]);     for i : = n downto 2 do        swap(a[i], a[i - 1]);     for i : = 1 to n do      writeln(a[i])end.