DAYSO PASCAL

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