解释Pascal程序

【回形填数】

Program huixingtianshu(iuput,output);
const d:array[1..4,1..2]of longint=((-1,0),(0,1),(1,0),(0,-1));
var
s:array[0..101,0..101]of longint;
i,j,k,l,m,n,a,b:longint;{l:方向 a:横坐标 b:竖坐标 k:}
begin
readln(n);
for i:=0 to n+1 do
for j:=0 to n+1 do
s[i,j]:=100;
for i:=1 to n do
for j:=1 to n do
s[i,j]:=0;
a:=1;b:=0;l:=2;k:=1;
while k<>n*n+1 do
begin
if s[a+d[l,1],b+d[l,2]]=0 then begin
a:=a+d[l,1];
b:=b+d[l,2];
s[a,b]:=k;
inc(k);
end
else begin
inc(l);
if l=5 then l:=1;

解释Pascal程序 解释以下这个程序(pascal) 某一个Pascal 程序中截取出来的一段，求解释 帮我解释一个PASCAL程序 我初级 PASCAL程序 pascal 程序 PASCAL语句用法解释 解释我的pascal程序，问题我已经写出来了，请解释一下 请教一个PASCAL程序 PASCAL程序求输出