Допишите программку: -поменяйте местами 1-ый и заключительный столбики; Вот программка: Program

program JHK;
const n = 5;
var j, i: integer;
d: array[1..n, 1..n] of real;
m: array[1..n, 1..n] of real;
begin
for i:= 1 to 5 do
begin
writeln();
for j:= 1 to 5 do
begin
d[i, j]:= sin(i + j);
write(d[i, j] : 6 : 2)
end
end;
writeln;
for i:= 1 to 5 do
begin
writeln();
for j:= 1 to 5 do
begin
if j = 1 then m[i, 1]:= d[i, 5] else if j = 5 then m[i, 5]:= d[i, 1] else m[i, j]:= d[i, j];
write(m[i, j] : 6 : 2)
end
end
end.