var
   a,n:integer;
begin
    while not eof do begin
    readln(a);
    n=a-1;
    writeln(n);
    while n>0 do begin
        writeln(n-1);
        end;
    end;
end.

这是我的程序，CE了，请帮忙看一下