program Bilangan;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
BILANGANGENAP,BILANGANGANJIL: integer;
begin

writeln;

writeln ('                    ===========================================');
writeln ('                    --------""""**  DEDY EPRIYANDI  **"""------');
writeln ('                    ===========================================');
BILANGANGENAP:=1;
WRITELN ('1. BILANGAN GANJIL');
BILANGANGANJIL:=2;
WRITELN ('2. BILANGAN GENAP');
WRITELN ;
WRITELN;
WRITE ('SILAHKAN PILIH :');READLN;
  begin
    IF BILANGANGANJIL=2 THEN
      begin
      WRITEln('***************** BILANGAN GANJIL *****************'); WRITELN ;
      WRITELN ('1' );
      WRITELN ('3' ) ;
      WRITELN ('5'  )   ;
      WRITELN ('7')   ;
      WRITELN ('9')    ;
      WRITELN ('11');
      WRITEln('***************** BILANGAN GANJIL *****************'); readln ;
      end;

      begin
      writeln;
      WRITELN ('***************** BULAN GENAP *****************');WRITELN;
      WRITELN ('2' );
      WRITELN ('4' ) ;
      WRITELN ('6'  )   ;
      WRITELN ('8')   ;
      WRITELN ('10');
      WRITELN ('12');
      WRITELN ('***************** BULAN GENAP *****************');readln;
      end;

 end;
end.