Задача на элементы матрицы Опции

[Atreides]

Народ помогите решить задачу! Составить программу определения произведения элементов в каждой диагонали матрицы F(9, 9). Элементы матрицы F равны сумме номеров столбцов и строк. Матрицу и результаты расчетов записать в текстовый файл.

[Amro]

Можно сделать так, вроде всё просто.......

Код

uses crt;
const
n=9;
var
matr:array [1..n,1..n] of integer;
i,j,Sum,proiz1,proiz2:longint;
ged: text;
begin
assign(ged,'c:\ged.txt');
rewrite(ged);
close(ged);
proiz1:=1; proiz2:=1;
clrscr;
 for i:=1 to n do
     begin
     writeln; append(ged);
   for j:=1 to n do
       begin
       matr[i,j]:=i+j;
       if i=j then
           begin
           proiz1:=(i+j)*proiz1;
           proiz2:=10*proiz2;
           end;
           write(matr[i,j]:4);
          write(ged,matr[i,j]:5);
       end;
       writeln(ged);
       close(ged);
     end;
     writeln;
append(ged);
writeln('Произведение : 1-ая диаг=',Proiz1:2,' 2-ая диаг=  ',proiz2:2);
writeln(ged,'Произведение : 1-ая диаг=',Proiz1:2,' 2-ая диаг=  ',proiz2:2);
close(ged);
end.

:D