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.

program binase;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin

  writeln(' $$$$$   $$$   $$  $$      $$$      $$$$$$   $$$$    $$     $$$$$   ');
  writeln(' $$   $  $$$   $$$ $$     $$$$$     $$$      $$  $   $$    $$       ');
  writeln(' $$$$$   $$$   $$$$$$    $$   $$    $$$$$$   $$$$    $$    $$ $$$$  ');
  writeln(' $$   $  $$$   $$  $$   $$$$$$$$$      $$$   $$      $$$$$ $$   $$  ');
  writeln(' $$$$$   $$$   $$  $$  $$$     $$$  $$$$$$   $$      $$$$$  $$$$$   ');

  readln;
  readln;
end.

program dedy1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
nim:integer;
nama:string;
kelas:string;
alamat:string;
asalsekolah:string;
begin
    write('masukkan NIM anda;');readln(nim);
    write('masukkan NAMA anda;');readln(nama);
    write('masukkan KELAS anda;');readln(kelas);
    write('masukkan ALAMAT anda;');readln(alamat);
    write('masukkan ASALSEKOLAH anda;');readln(asalsekolah);
    write('***************your biodata***************');readln;
    writeln('NIM anda:',nim);readln;
    writeln('NAMA anda:',nama);readln;
    writeln('KELAS anda:',kelas);readln;
    writeln('ALAMAT anda:',kelas);readln;
    writeln('ASALSEKOLAH anda:',asalsekolah);readln;

    write('***************terima kasih***************');readln;
end.