PROGRAM K_RING;
VAR N:INTEGER;VAR A:BOOLEAN;
PROCEDURE RING(K:INTEGER);
BEGIN
A:=K MOD 2=0;
IF K=1 AND A=FALSE THEN BEGIN
WRITE(1,' ');
EXIT;
END;
IF K=2 AND A=TRUE THEN BEGIN
WRITE(1,'&',2,' ');
EXIT;
END;
RING(K-2);
WRITE(K,' ');
RING(K-2);
RING(K-1);
END;
BEGIN
READLN(N);
RING(N);
END.

用小写打出来我再告诉你

你好伸手党

两个var能过？

问题已经解决了