Напишите программу на паскале abc магического квадрата (четно- четного).

Procedure four(n: integer; var a: a_type);   {процедура построения квадрата при n двойной четности: n=4,8,12,}  pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 var i,j,k: integer; p,l: integer; i1,j1,x,y: integer; begin l: =1; p: =n*n; for i: =1 to n do for j: =1 to n do begin a[i,j]: =l; inc(l) {l: =l+1} end; i: =2; while i< =n-2 do begin if i mod 4=0 then j: =4 else j: =2; while j< =n-2 do begin for i1: =0 to 1 do for j1: =0 to 1 do begin y: =i+i1; x: =j+j1; a[y,x]: =p-a[y,x]+1; end; j: =j+4; end; i: =i+2 end; k: =4; while k< =n-4 do begin a[1,k]: =p-a[1,k]+1; a[1,k+1]: =p-a[1,k+1]+1; a[n,k]: =p-a[n,k]+1; a[n,k+1]: =p-a[n,k+1]+1; a[k,1]: =p-a[k,1]+1; a[k+1,1]: =p-a[k+1,1]+1; a[k,n]: =p-a[k,n]+1; a[k+1,n]: =p-a[k+1,n]+1; k: =k+4 end; a[1,1]: =p-a[1,1]+1; a[n,n]: =p-a[n,n]+1; a[1,n]: =p-a[1,n]+1; a[n,1]: =p-a[n,1]+1; end;

Полное имя было  d: .txt