Получить матрицу, элементы каждой следующей строки которой равны сумме соответствующих элементов двух предыдущих строк - Pascal

Формулировка задачи:

14. Получить действительную матрицу А порядка 5, первый и второй строки которой задаются соответственно формулами a1j=2j+3, a2j=j-3/2+j, (j=1,2,..,5), a элементы каждого следующей строки равны сумме соответствующих элементов двух предыдущих строк.

Решение задачи: «Получить матрицу, элементы каждой следующей строки которой равны сумме соответствующих элементов двух предыдущих строк»

Листинг программы

const n=5;
var a:array[1..n,1..n] of real;
    i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
case i of
1:a[i,j]:=2*j+3;
2:a[i,j]:=(j-3)/(2+j);
else a[i,j]:=a[i-2,j]+a[i-1,j];
end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
end.

Объяснение кода листинга программы

Объявлены массив a размером n на n, а также переменные i и j типа byte.
Заполнение массива a происходит в два цикла for. Первый цикл перебирает строки, второй - столбцы.
В каждой итерации внутреннего цикла выполняется проверка значения переменной i.
При i=1, массив a заполняется произвольными значениями (2*j+3 и (j-3)/(2+j)).
При i=2, массив a заполняется произвольными значениями (2*j+3 и (j-3)/(2+j)).
При i>2, массив a заполняется значениями, равными сумме соответствующих элементов двух предыдущих строк.
После заполнения массива a, происходит его вывод на экран в два цикла for с форматированием каждого элемента до 6 знаков после запятой.
Конец программы обозначен командой end.