Deret bilangan ganjil pascal

Kali ini saya akan membagikan cara untuk membuat deret bilangan ganjil dengan menggunakan bahasa pemrograman pascal. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

berikut source code nya :

program bilanganganjil;

uses crt;

var

i,n:integer;

begin

clrscr;

writeln('masukan batas akhir');

readln(n);

for i:=1 to n do

 if (i mod 2 = 1) then

 write(i,' ');

end.

berikut screenshoot nya :