https://pastein.ru/t/PE
скопируйте уникальную ссылку для отправки
program ass;
var
i,j:integer;
n:=readinteger('n is:');
begin
for i:=1 to 2*n do
for j:=1 to 2*n do
begin
if j<>2*n then
begin
if (n >= j) and (n >= i) then
write('1 ');
if (n >= j) and (n < i) then
write('3 ');
if (n < j) and (n >= i) then
write('2 ');
if (n < j) and (n < i) then
write('4 ');
end
else
begin
if (n < j) and (n >= i) then
writeln('2');
if (n < j) and (n < i) then
writeln('4');
end;
end;
end.