Напишите программу формирования и вывода двумерного массива произвольного размера так, чтобы каждый последующий элемент, начиная с третьего, был равен
сумме двух предыдущих элементов. Два первых элемента задайте с клавиатуры.

i, j: integer;a: array [1..100, 1..100] of integer;beginreadln(a[1][1], a[1][2]);for i := 3 to 30 do  a[1][i] := a[1][i - 1] + a[1][i -2];for i := 2 to 30 do  for j := 1 to 30 dobegin  if (j > 2) then   a[i][j] := a[i][j - 1] + a[i][j - 2]elseif (j = 2) then a[i][j] := a[i][1] + a[i - 1][30]elsea[i][j] := a[i - 1][30] + a[i - 1][29];end;for i := 1 to 30 dobeginfor j := 1 to 30 do write(a[i][j],' ')writeln;end;end.Вот,  сорри если что пишу без компилятора