[hottabych23]

Вот и всё. Написал твою программу.
Тебе нужно добавить отзыв обо мне в правом окошке моего сообщения.
И если хочеш свой ид Вконтакте.
В папке с этой программой создаешь 2 файла 1 input.txt 2 output.txt.

Код:

const n=1;
var i,j,vrem:integer;  Matrix:array[1..2*n,1..3*n] of integer;  f,f1:text;
begin
     assign(f,'input.txt');
     assign(f1,'output.txt');
     reset(f);
     for i:=1 to 2*n do
     for j:=1 to 3*n do
     read(f,Matrix[i,j]);
     
     vrem:=Matrix[1,3*n];
     matrix[1,3*n]:=matrix[2*n,1];
     matrix[2*n,1]:=vrem;
     
     rewrite(f1);
     for i:=1 to 2*n do
     begin
          writeln(f1);
          for j:=1 to 3*n do
          write(f1,matrix[i,j],' ');
     end;
     close(f);
     close(f1);
end.