Написать алгоритм или программу заполнения числами произвольного n (n<32768), как показано ниже:

const n=16;size=4;var c,i,j:longint;Begini:=1;for j:=1 to n div size doBeginc:=i;if (j mod 2)=1 thenfor i:=i to i+size-1 do write(i:3)elsefor i:=i+size-1 downto i do write(i:3);i:=c+size;writeln;end;end.