PROGRAM BILANGAN GANJIL

program bilangan_ganjil;

uses wincrt;

var

i,n,bil_ganjil:integer;

begin

write('bilangan ganjil 1-');readln(n);

if n=0 then writeln('bilangan ganjil adalah 1')

else

for i:=1 to n do

begin

bil_ganjil:=2*i-1;

writeln('maka bilangan ganjil ',bil_ganjil,'');readln(bil_ganjil);

end;

end.