Bulan Genap dan Ganjil

program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  bulangenap :integer;

  bulanganjil :integer;

begin

write ('Masukkan bulan genap :');readln(bulangenap);

writeln ('februari :',(2)); readln;

writeln ('april :',(4)); readln;

writeln ('juni :',(6)); readln;

writeln ('agustus :',(8)); readln;

writeln ('oktober :',(10)); readln;

writeln ('desember :',(12)); readln;

write ('Masukkan bulan ganjil :');readln(bulanganjil);

writeln ('januari :',(1)); readln;

writeln ('maret :',(3)); readln;

writeln ('mei :',(5)); readln;

writeln ('juli :',(7)); readln;

writeln ('september :',(9)); readln;

writeln ('november :',(11)); readln;

writeln ('********* Terimah Kasih ***********'); readln;

  { TODO -oUser -cConsole Main : Insert code here }

end.