var a:array [1..100,1..100] of char;
i,j,n,s,s1,k:integer;
begin 
s:=0;
s1:=0;
writeln ('Vvedite razmer matrici');
readln (n);
for i:=1 to n do
  for j:=1 to n do
  begin
  write('a[',i,',',j,']=');
  readln (a[i,j]);
end;
writeln ('massiv');
for i:=1 to n do
begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
end;
for i:=1 to n do
  for j:=1 to n do
  begin
  if i=j then begin k:=ord(a[i,j])-48; s:=s+k; end; 
  if i+j=n+1 then begin k:=ord(a[i,j])-48; s1:=s1+k; end;
  end;
   if (s>s1) then begin
   for i:=1 to n do
  for j:=1 to n do
 if (j mod 2 =0) then  a[i,j]:='*'  else a[i,j]:='0';
 end;
  writeln ('massiv new');
for i:=1 to n do
begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
end;
end.