Ответ:

program z1234;

var i,j,n: integer;

begin

write('n = ');

readln (n);

writeln;

for i:=1 to n do

begin

for j:=1 to n do write(n:3);

writeln

end;

writeln;

for i:=1 to n do

begin

for j:=1 to n do write(i+j:3);

writeln

end;

writeln;

for i:=1 to n do

begin

for j:=1 to n do  

if i mod 2 <> 0 then write(i+j:3)

else write(j-i:3);

writeln

end;

writeln;

for i:=1 to n do

begin

for j:=1 to n do  

if j mod 2 <> 0 then write(j:3)

else write(i:3);

writeln

end

end.

Объяснение:

1. Выводим введённое число

2. Выводим сумму номера строки и номера столбца

3. Если строка нечётная - выводим сумму номера строки и номера столбца, иначе (если строка чётная) - выводим разность номера столбца и номера строки

4. Если столбец нечётный - выводим номер столбца, иначе (если столбец чётный) - выводим номер строки