اینم برنامه مربع جادویی که به زبان پاسکال نوشته شده...

program a123;
var
    m,n,max,i,j:integer;
begin
writeln('please enter number:');
    readln(n);
    m:=2*n-1;
    for i:=1 to m do
    begin
      for j:=1 to m do
        begin
        max:=abs(n-i);
        if( abs(n-j))>max then
        max:=abs(n-j);
        write(n-max:2);
        end;
     writeln;
    end;
    writeln;
    writeln('enter any key to exit...');
    readln;
end.