Ответ:

program z;

var a: array [1..5,1..5] of integer;

i,j: integer;

begin

for i:= 1 to 5 do

begin

for j:= 1 to 5 do

begin

if (i=j) or (i+j=5+1) then a[i,j]:= 0 else a[i,j]:= 1;

write(a[i,j]:2)

end;

writeln

end

end.