Syntax Contoh Pilihan Ganda

MENENTUKAN BILANGAN GANJIL ATAU GENAP

program ganjilgenap;
uses wincrt;                             { pilihan ganda = if kondisi 1 then }
                                         {                     statement 1   }var                                      {                 else              }
   bil : integer;                        {                     statement 2   }
   lagi : char;

begin
     Clrscr;
     writeln ('program ganjil genap');
     writeln ('____________________');
     writeln;
     write ('masukkan sembarang bilangan:');
     readln (bil);

     writeln;
if (bil mod 2=0) then
   writeln ('bilangan_',bil,'_adalah bilangan genap')
else
    writeln ('bilangan_',bil,'_adalah bilangan ganjil');
    readln;
end.