Coding Pascal "Menentukan Bilangan Ganjil dan Genap"

uses crt;

var

x,y : integer ;

procedure Genap atau Ganjil;

begin

clrscr;

write ('Masukkan Bilangan : '); readln (x);

y := x mod 2;

end;

begin

Genap atau Ganjil;

if y=0 then

begin

writeln (x, 'Adalah Bilangan Genap');

end

else

begin

writeln (x, 'Adalah Bilangan Ganjil');

end;

readkey;

end.

jangan ada yang sempat merindukan senja

 Kita semua berdiri di belakang tapal,

     Dari suatu malam ramai,

     Dari suatu kegelapan tiada berkata,

     Dari waktu terlalu cepat dan kita mau tahan,

     Dari perceraian - tiada mungkin,

     Dan sinar mata yang tiada terlupakan.

Bayang-bayangan mu di atas senja 

 panas matahari membakar rinduku

 terbakar habis hingga tak tersisa dengan udara

Ku hanya bisa terbaring ,

  terpejam,

  dan memanggil nama mu di  palung hatiku  berharap kau bisa mengerti,

  merasa,

  menjama ,

Hingga akhirnya aku tersadar dan 

akan jatuh seperti permata mahkota

 berderi sebutir demi sebutir

karena  

Di sini telah datang suatu perasaan,

Serta kita akan menderita dan tertawa.

Tawa dan derita dari yang tewas

yang mencipta.....

KARMA TERINDAH

terdiam membisu di tepi mariana 

menunggu hingga semu na senja

tak akan datang kembali

hanya keelegian yang menghiasi

hingga tumbuh felix

di senja

sang arcanus pun tiba

menghapus rasa elegi

dan mengganti semua menjadi sinceritas

hingga semua tersadar

bahwa

dia hanyalah bayang semu dari deminutio ku

namun aku terlanjur

tersesat di matanya

dan tidak pernah benar-benar punya kesempatan

kesalahan saya, saya tidak ingin jatuh cinta