Contoh program bilangan ganjil menggunakan turbo pascal

Berikut ini codingannya:

Program bilangan_ganjil;
uses crt;
var i,n,k: integer;
begin
     clrscr;
     write('masukkan nilai awal: ');
     readln(n);
     write('masukkan nilai akhir: ');
     readln(k);
     write('bilangan ganjil : ');
     for i:= n to k do
     begin
     if i mod 2 = 1 then write(i,',');
     end;
     readln;
end.

Berikut Hasilnya:

Sekian terimakasih silahkan mencoba:)