Pascal : Program Pengomentar Bilangan

Buatlah sebuah program yang meminta agar sebuah bilangan dimasukkan dari keyboard dan kemudian program dapat mengomentari bilangan tersebut :

• Negatif jika nilai nya kurang dari nol
• Positif jika nilainya lebih dari nol
• Nol jika nilai nya sama dengan nol

program PengomentarBilangan ;

uses wincrt ;

var

x : integer ;

begin

write ( 'Masukkan sebuah bilangan : ' ) ; readln (x) ;

      if x = 0 then

         write ( 'Bilangan Tersebut adalah Nol' )

      else

      if x > 0 then

         write ( 'Bilangan Tersebut adalah Positif')

      else

         write ( 'Bilangan Tersebut adalah Negatif' ) ;

      (* endif *)

      (* endif *)

end.