DSNGUOC PASCAL

var i, n: longint;
begin
    assign(input, 'DSNGUOC.inp');reset(input);
    assign(output, 'DSNGUOC.out');rewrite(output);
    read(n);
    for i:=n downto 1 do 
        write(i,' ');
end.