program PascalGuru;
 
var A,PR:array [1..50,1..50] of integer; {объявление переменных 2-мерных массивов}
    B:array [1..50] of integer;  {объявление переменной 1-мерного массива}
    i,j,n:integer; {переменные для цикла}
 
{-------------------------------------------}
begin
writeln ('Vvedite razmer matricy A:');  read (n);  {Ввод размера матрицы}
 
for i:=1 to n do
for j:=1 to n do begin write('A[',i,',',j,']='); readln(A[i,j]); end;  {Ввод значений матрицы с клавиатуры}
 
writeln('Ishodnaya:');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:8);  end; {Вывод введенной матрицы на экран}
writeln;
{***********************************************}
 
for i:=1 to n do    {цикл прохода по каждой строке}
              begin
              for j:=2 to n do {проходим по эл-там строки начиная со 2-го}
              if not odd(j) then {если на чётном месте}
                                 PR[i,j]:=A[i,j-1]*A[i,j] {умножаем и записываем в преобразованный массив}
                            else PR[i,j]:=A[i,j-1]+A[i,j];{суммируем и записываем в преобразованный массив}
              PR[i,1]:=A[i,1]+A[i,2]; {значение первого эл-та строки = сумме первого+второго}
              end;
 
writeln('Preobrazovannaya:');
for i:=1 to n do begin writeln;
for j:=1 to n do write (PR[i,j]:8);  end; {Выводим преобразованную матрицу на экран}
 
writeln; writeln;
for j:=1 to n do B[j]:=PR[n,j]; {Записываем элементы последней строки преобразов. матрицы в одномерный массив В}
writeln('Massiv "B" iz poslednei stroki: ');
for i:=1 to n do write(B[i]:8); {Выводим одномерный массив В на эран}
 
 
readln;
end.