Penampilan deret Bilangan Ganjil Dengan WHile DO

###Dalam Bahasa ALgoritma:
Var
        x:Integer
        N:Integer
BEGIN
        Output('Silahkan Masukan Nilai X: ')
    Input(X)
        N<-- 1
        While N<= X do
        BEGIN
                Output(N,' ')
                N<-- N + 2
        END
        
End Algoritma

###Dalam Bahasa Pascal:
uses crt;
Var
        x:Integer;
        N:Integer;
BEGIN
        Textbackground(15);
        textcolor(12);
        CLRSCR;
        WRITELN('Silahkan Masukan Nilai X: '); 
        READLN(X);
        N:= 1;
        While N<= X do
        BEGIN;
                WRITE(N,' ');
                N:= N + 2;
        END;
        READLN();
End.