pacman -Syu, sudo обновилсо
program mine;
const
n = 8;
var
a: array [1..n, 1..n] of real;
var
x: array [1..n] of real;
i, j: integer;
y, s: real;
begin
Writeln('Матрица Aij: ');
for i := 1 to n do
begin
s := s / 2;
st := (i - 4.3) * s;
for j := 1 to n do
begin
a[i, j] := (abs(3.7 - j) - 2) * st;
Write(a[i, j]:8:2);
end;
end;