Program Deret Bilangan Ganjil Pada Pascal

Soal

Buatlah program untuk menghitung bilangan ganjil dengan output :
1 3 5 7 9 dst

Listing Program

program bilanganganjil;
uses crt;
var
 n,i:integer;
begin
 clrscr;
 write('Masukkan Angka : ');readln(n);
 for i:= 1 to n do
   write (2*i-1,' ');
 readln;
end.

Output Program