Ответ:

1)

program z1;

var i,j,n:integer;

begin

n:=5;

for i:=1 to n do

begin

for j:=1 to n do

if (i=3) and (j=3) then write('0':2) else write('1':2);

writeln

end

end.

2)

program z2;

var i,j,n:integer;

begin

n:=5;

for i:=1 to n do

begin

for j:=1 to n do

if i mod 2 = 0 then write('0':2) else write('1':2);

writeln

end

end.

3)

program z3;

var i,j,n:integer;

begin

n:=5;

for i:=1 to n do

begin

for j:=1 to n do

write(i:2);

writeln

end

end.

4)

program z4;

var i,j,n:integer;

begin

n:=5;

for i:=1 to n do

begin

for j:=1 to n do

if i = j then write('1':2) else write('0':2);

writeln

end

end.

5)

program z5;

var i,j,n:integer;

begin

n:=5;

for i:=1 to n do

begin

for j:=1 to n do

if i + j = n + 1 then write('1':2) else write('0':2);

writeln

end

end.

Объяснение:

1) Выводим на экран 0, если i = 3 и j = 3, иначе выводим 1

2) Выводим на экран 0, если строка чётная, иначе выводим 1

3) Выводим на экран номер строки

4) Выводим на экран 1, если i = j (номер строки равен номеру столбца), иначе выводим 0

5) Выводим на экран 1, если i + j = n + 1 (номер строки плюс номер столбца на 1 больше максимального значения), иначе выводим 0