2. Получить элементы квадратной матрицы

[Annyska]

Прошу помощи решить задачку по программированию на Pascal
А=|a i,j | i,j=1, ..., n, a i,j = f(i,j),
f(i,j) = ( | j - 3 | - 1.3 ) ( 6.5 - j ) + 2 ( 3.3 - i ) - 1.5.

[Sciv]

var i,j,n: integer;
    A: array [1..n,1..n] of real;

begin
  ReadLn(n);
  for i:=1 to n do
    for j:=1 to n do 
      A[i,j]:=(abs(j-3)-1.3)*(6.5-j)+2*(3.3-i)-1.5;
end.

TinMan, учел Ваше замечание, код поправил

[TinMan]

Sciv, внешнего abs не надо.. Вертикальные палочки в
A = | a ij |
- это просто обозначение матрицы.