Pascal ABC - Сформировать квадратную матрицу порядка n ( где n — четное число) по заданному образцу. Желательно побыстрей :D

var a:array[1..20,1..20] of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dofor j:=1 to n doif i<j then a[i,j]:=0else a[i,j]:=n-i+j;for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.