STATEMENT IF (2 KASUS)

Statemen If yang melibatkan dua kasus merupakan perluasan dari bentuk pertama sebelumnya yang if satu kasus.Konsepnya sederhana,pemilihan ini terdapat penambahan statemen (bisa berbentuk gabungan statemen dalam satu blok) yang digunakan untuk mengatasi kejadian pada saat kondisi tidak terpenuhi.
jadi kaya gini aja nih nih:

if (kondisi) then
  statemen_jika_kondisi_benar
  {TIDAK DIAKHIRI DENGAN;}
else
  statemen_jika_kondisi_salah;

Apabila kondisi bernilai true maka statemen dengan kondisi benar akan dijalankan dan jika kondisi salah maka statemen kedua dijalankan yaitu statemen yang berada dalam bagian else

#Bentuk diatas hanya berlaku jika hanya memiliki satu baris statemen,dan yang harus diperhatikan adalah statemen pertama (sebelum kata kunci else) tidak boleh diakhiri tanda titik koma.Jika ingin menambahkan titik koma maka harus menempatkan statemen tersebut dalam blok (begin...end).kaya gene nih

if (kondisi) then
 begin
  statemen_jika_kondisi_benar;{pake titik koma}
 end
else
  statemen_jika_kondisi_salah;

atau kaya gini aja juga bisa(buat banyak statemen gitu)

if (kondisi) then begin
  statemen_jika_kondisi_benar;
end else begin
  statemen_jika_kondisi_salah;
end;

kita buat contoh programnya yoo

program ifDuakasus;
uses wincrt;
var bil:integer;
begin
  write('masukan sebuah bilangan');
  readln(bil);
  if (bil mod 2 = 0) then
   writeln(bil,' merupakan bilangan GENAP)
  else
   writeln(bil,' merupakan bilangan GANJIL);
end.

aduuh lega dan capenya...
moga bermanfaat kawan2