Membuat deret angka positif negatif dengan pascal

Untuk membuat suatu deret bilangan positif kemudian negatif dan positif lagi serta begitu seterusnya. maka kita harus membuat suatu parameter tersendiri. bisa teman-teman lihat pada source kode dibawah ini saya membuat parameter tersendiri didalam percabangan untuk membuat bilangan berikutnya negatif dari bilangan sebelumnya positif, begitu juga sebaliknya.

source kode :