Program Untuk Mencari Bilangan Genap Atau Bilangan Ganjil

Uses CRT ;
Var
      Hasil: Byte;
      Bil: Integer;
Begin
   Clrscr;
   Write('input Bilangan :') ; readln(Bil);
   IF Bil <= 0 Then
   write('Bil A sama dengan Bil B')
   Else
   Begin
         Hasil := Bil MOD 2;
         IF Hasil =0 Then
              Write('Bil,'Bilangan Genap') 
         Else
               Write( 'Bil,'Bilangan Ganjil');
    End ;
End.