program m2;
uses Crt;
const n=3;
      m=5;
var a:array[1..n,1..m]of Integer;
i,j,c:Integer;
begin
ClrScr;
Writeln('Введите значения элементов матрицы(3х5):');
for i:=1 to n do
for j:=1 to m do 
begin
Write('a[',i,',',j,']=');
Readln(a[i,j]);
end;
Writeln('Заданная матрица:');
for i:=1 to n do
begin
for j:=1 to m do Write(a[i,j]:4);
Writeln;
end;
Writeln('Полученная матрица:');
for j:=1 to m do
begin
c:=a[1,j];
a[1,j]:=a[3,j];
a[n,j]:=c;
end;
for i:=1 to n do
begin
c:=a[i,2];
a[i,2]:=a[i,5];
a[i,5]:=c;
end;
for i:=1 to n do
begin
for j:=1 to m do Write(a[i,j]:4);
Writeln;
end;