SOS!КВАДРАТНАЯ ВЕЩЕСТВЕННАЯ МАТРИЦА ПОРЯДКА N Опции

[VIP-DETKA]

Народ помогите пожалуйста с решением следующей задачи:Дана квадратная вещественная матрица А порядка N,где N - заданное натуральное число.Найти произведение элементов матрицы,расположенных на двух диагоналях,параллельных главной и граничащих с ней Пожалуйста отзовитесь!И чем быстрее,тем лучше!На счету каждый час!

[volvo]

type
  mn = array[1 .. 100, 1 .. 100] of real; { Хотя я бы этого не делал... }
var
  i, n, j: integer;
  a: mn;
  s: real;

begin
  s := 1;
  writeln('BBodite razmer');
  readln(n);

  for i := 1 to n do
    for j := 1 to n do begin
      write('Bbedite element a[', i, ',', j, ']: ');
      readln(a[i,j])
    end;

  for i := 1 to n - 1 do s := s * a[i, i + 1];
  for i := 2 to n do s := s * a[i, i - 1];
  writeln(s);
  readln;
end.

[VIP-DETKA]

type
  mn = array[1 .. 100, 1 .. 100] of real; { Хотя я бы этого не делал... }
var
  i, n, j: integer;
  a: mn;
  s: real;

begin
  s := 1;
  writeln('BBodite razmer');
  readln(n);

  for i := 1 to n do
    for j := 1 to n do begin
      write('Bbedite element a[', i, ',', j, ']: ');
      readln(a[i,j])
    end;

  for i := 1 to n - 1 do s := s * a[i, i + 1];
  for i := 2 to n do s := s * a[i, i - 1];
  writeln(s);
  readln;
end.

Всем Огромное Спасибо! Я Вас Обожаю! Искренне и От Всей Души Всего Вам Что Вы Пожелаете!!!