这个编译没错，运行就挂了 free pascal的

end;
end:longint);
for a:=false;
for a:=hh[i];
for a;
writeln(x);
readln(n;
for a;
kk[k-dep+1];
for i;
if sk[m]=true
then inc(x);
end
else for i:=i:=1 to n-k+1 do
xs(k);
readln:=2 to n div a do
sk[b*a];
begin
if dep=0
then begin
m,ss[i]);
sk[1]:=1 to n do
read(hh[a]);
begin
x:=kk[k-dep+1] to n do
begin
ss[k-dep+1]:=0:=false:=2 to n do
sk[a];
xs(dep-1):=2 to n do
if sk[a]=true
then for b;
end:=true,k)procedure xs(dep:=1 to k do
inc(m:=0

亲 你忘了VAR不死就怪了

你好！ 同学，你貌似忘记VAR了。 所有变量都要先定义才能运算，不会的追问 仅代表个人观点，不喜勿喷，谢谢。

VAR呢

var呀亲，你的变量定义呢