I have post you solution for this problem. What is your adress?

levani_kasra@posta.ge

I have solved 1319,
please send solution of any from 1320 to 1326

var
  a:  array[1..100,1..100]of longint;
  n,i,j,k,yk :longint;
begin
     readln(n);
  yk:=1;
     for i:=1 to n do
        begin
           k:=1;
           j:=n-i+1;
           while j<>n+1 do
           begin
              a[k,j]:=yk;
              inc(yk);
              inc(k);
              inc(j);
           end;
        end;
        for i:=2 to n do
           begin
                k:=1;
                j:=i;
                while j<>n+1 do
                begin
                  a[j,k]:=yk;
                  inc(yk);
                  inc(k);
                  inc(j);
                end;

           end;
        for i:=1  to n do
        begin
           for j:= 1 to n do
             write(a[i,j],' ');
             writeln;
        end;
 end.