/SXLOI - Thuật toán sắp xếp lỗi (Codeforce)

<Problem>

http://ntucoder.net/Problem/Details/1139
              Uses Crt;
        Var n:longint;
        Begin
            readln(n);
            if n=1 then writeln(-1)
            else
             if n=2 then writeln(-1)
              else
               begin
                   write(3,' ',2,' ',1);
                   n:=n-3;
                   if n>0 then
                    begin
                        while n>0 do
                         begin
                             write(' ',4);
                             n:=n-1;
                         end;
                    end;
               end;
            readln;
        End.