Program Bilangan_Genap_Ganjil

Program Bilangan_Bulat_Ganjil;
Uses WinCrt;
Var
   ulang : integer;
   x,y,z,i,j :integer;
Begin
     ulang:=1;
     while ulang<>0 do
     begin//=============
     //Clrscr;
     write('masukkan bilangan  : ');readln(x);
     z:=x mod 2;


     if z=1 then
        begin
             writeln('Termasuk bilangan ganjil');
             write('Bilangan ganjil sebelum ',x,' : ');
             j:=1;
             y:=x div 2;
             for i:=1 to y+1 do
               begin
                  write('  ',j);
                  j:=j+2;
               end;
         end

     else
        begin
             writeln('Termasuk bilangan genap');
             write('Bilangan genap sebelum ',x,' : ');
             j:=0;
             y:=x div 2;
             for i:=1 to y+1 do
               begin
                  write('  ',j);
                  j:=j+2;
               end;
         end;


     writeln;
     //readln;
     end;//===============

End.