program ideone;
															{i - СЧИТАЕТ СТОБЦЫ}
	uses crt;

var

	q,n,x,i,j:integer;
	massiv:array[1..10,1..10] of integer;

begin

	 
	
	

{Заполнение Массива}  for j:=1 to 10 do begin 		{цикл для перебора всех строк}		
						
							for i:=1 to 10 do begin {перебор всех элементов строки по столбцам}	
					{ЯДРО}
								massiv[i,j]:=0;
								
								
								if i=j then
								massiv[i,j]:=1;	
								
								if (i=1) or (i=10) then begin
								massiv[i,j]:=1;	
								end;
								
							
							end;
					  end;
	
	
writeln;

	{Вывод Массива} for j:=1 to 10 do begin 		{цикл для перебора всех строк}		
					writeln;
						for i:=1 to 10 do begin {перебор всех элементов строки по столбцам}	
							write(massiv[i,j]:5);
						end;
					end;
end.						
								if i=j then
								massiv[i,j]:=1;	
								
								if (i=1) or (i=10) then begin
								massiv[i,j]:=1;	
								end;
								
								
								
							end;
					  end;
	
	
writeln;

	{Вывод Массива} for j:=1 to 10 do begin 		{цикл для перебора всех строк}		
					writeln;
						for i:=1 to 10 do begin {перебор всех элементов строки по столбцам}	
							write(massiv[i,j]:5);
						end;
					end;
end.