Program Pascal Negatif Dan Positif

Sore guys, program pascal bilangan negatif dan positif ini saya posting untuk memacu semangat becoding terus , kali ini saya akan membagikan script untuk menentukan bilangan positif atau negatif dan seperti yang kita ketahui bahwa setiap bilangan yang dibawah angka 0 adalah negatif dan lebih dari 0 adalah bilangan positif. program pascal ini mungkin masih kurang sempurna dan mungkin teman-teman dapat membuat program bilangan positif dan negatif ini menjadi lebih baik lagi. ok, langsung aja di cek sricpt pascal nya di bawah ini

Penjelasan script : pada program pascal ini saya menggunakan penyeleksian kondisi if-else if - else dan algoritmanya adalah sebagai berikut angka < (kurang dari ) 0 adalah bilangan negatif dan angka > 0 ( kurang lebih ) 0 adalah bilangan positif dan jika angka tersebut = 0 maka nilainya adalah bilangan 0 karena 0 adalah angka netral ( bukan negatif maupun positif ).