uses crt;
const a=42;
var
 mas:array [4..a+2,2..a] of byte;
 i,j,x:byte;
 s:word;
begin
 clrscr;
 randomize;
 write('Vvedite kolitsestvo elementov v massive. x= ');
 readln(x);
{Sozdanie massiva}
 writeln('Massiv:');
 for j:=1 to x+2 do
 begin
   for i:=1 to x do
   begin
     mas[j,i]:=random(9)+1;{min- 1; max- 9}
     write(mas[j,i]:2);
   end;
 writeln;
 end;
 readkey;
{Summa stolbzov}
 writeln('Summa:');
 for i:=1 to x do
 begin
   s:=0;
   for j:=1 to x+2 do
   s:=s+mas[j,i];
   writeln('Summa ',i,' stolbza:',s:3);
 end;
 readkey;
{Obnullenie massiva}
 writeln('Obnullenie elementov massiva:');
 for j:=1 to x+2 do
 begin
   if j<=x then mas[j,j]:=0;
   if j+1<=x then  mas[j,j+1]:=0;
 end;
 for j:=1 to x+2 do
 begin
   for i:=1 to x do write(mas[j,i]:2);
   writeln;
 end;  
repeat until keypressed;
end.