uses crt;

type a=array[1..180,1..180] of integer;
     b=array[1..180,1..180] of integer;
var
     i,b1,p:byte;
     z:integer;

begin
 randomize;
 for i:=1 to 180 do
  for b1:=1 to 180 do
  begin
    a[b1,i]:=random;
    b[b1,i]:=0;
   end;

 b1:=0;
 repeat
  inc(b1);
  z:=1;
  for i:=1 to 180 do
   if (i mod 5 <> 0) then b[b1,i]:=a[b1,i]
   else
    begin
     for p:=z to z+3 do
      b[b1,i]:=b[b1,i]+a[b1,p];
     z:=z+5;
    end;
 until b1=180;

 writeln('A[5,5] = ',a[5,5],'        B[5,5]=',b[5,5]);
 writeln;
 writeln('A:                      B:');
 for i:=10 to 19 do
  begin
   for b1:=21 to 30 do
    write(a[i,b1],' ');
   write('                 ');
   for b1:=21 to 30 do
    write(b[i,b1],' ');
   writeln;
  end;
end.

(*Вариант 6 Дан двумерный массив (матрица) А размерностью 180 на 180 элементов
типа integer с произвольными значениями. Сформировать из него массив В(180,180),
путем замены  каждого пятого элемента матрицы суммой четырех предыдущих элементов.
Вывести на экран 2 фрагмента размером 10 на 10 исходной и полученной матриц,
а также элементы А(5,5) и В(5,5).*)