Algoritma

Bagaimana jika Variabel BIlA & BilB memiliki nilai yang sama ? ,
Maka akan terjadi kesalahan logika yaitu : BilB besar dari BilA padahal bisa terjadi kemungkinan Bil sama dengan BilA. Untuk mengatasi kendala tersebut maka digunakan IF Jamak.
USES CRT ;
VAR
  BilA, BilB : Byte ;
BEGIN
CLRSCR ;
Write('Bilangan A :') ; Readln (BilA) ;
Write('Bilangan B :') ; Readln (BilB) ;
IF BilA = BilB Then
     Write('Bil A sama dengan BilB')
Else IF BilA > BilB Then
    Write('Bil A Lebih Besar dari BilB')
 Else
   Write('Bil B Lebih Besar dari Bil A') ;
END.