Арифметический квадрат Опции

[viv]

Люди, помогите пожалуйста решить задачку.
Имеется арифметический квадрат
1 1 1 1 1 1 ...
1 2 3 4 5 6 ...
1 3 6 10 15 21 ...
1 4 10 20 35 56 ...
Найти n(i,j) член квадрата

[volvo]

Старая добрая рекурсия:

function get_element(i, j: integer): integer;
begin
  if (i = 1) or (j = 1) then get_element := 1
  else
    get_element := get_element(i, pred(j)) + get_element(pred(i), j);
end;

begin
  writeln(get_element(4, 4));
end.