Задача на матрицу Опции

[Tatjanka]

Помогите пожалуйста решить задачку на построение матрице. Суть задачи такова:

Изобразите на экране матрицу А(5,7), где элементы первой строки обозначаются значением 2j+3, элементы второй строки j-3/(2+i/j) . Каждый следующий элемент строки это сумма двух верхних элементов строк. Найдите сколько целых чисел в матрице?

За ранее всем благодарна

[volvo]

Tatjanka
Что-то с заданием не в порядке. Скорее всего вот так:

Код

var
 a: array[1 .. 5, 1 .. 7] of real;

 i, j: integer;
 count: integer;
begin
 i := 2;
 for j := 1 to 7 do
   begin
     a[1, j] := 2 * j + 3;
     a[2, j] := j-3/(2+i/j)
   end;
 for i := 3 to 5 do
   for j := 1 to 7 do
     a[i, j] := a[i-2, j] + a[i-1, j];

 count := 0;
 for i := 1 to 5 do
   begin
     for j := 1 to 7 do
       begin
         if frac(a[i, j]) = 0
           then inc(count);
         write(a[i, j]:8:3)
       end;
     writeln
   end;

 writeln( count, ' integers' )
end.