if Bersarang

If Bersarang atau If Nested adalah adalah perintah If di dalam If. Jadi kondisi yang ada di dalam kondisi. Jika sudah tahu If Else, maka sangatlah mudah memahami struktur ini.

If (kondisi) Then
    If (Kondisi) Then
          (Pernyataan)
    Else
          (Pernyataan)
Else If (Kondisi) Then
          (Pernyataan)
    Else
          (Pernyataan)
.
.

Berikut adalah contoh program sederhana menggunakan If Nested untuk mengurutkan 3 bilangan dari yang terkecil hingga yang besar.

Program  Latihan;
Uses Wincrt;
Var A, B, C : Integer;
Begin
 Writeln('Program Mengurutkan Bilangan');
 Writeln('============================');
 Writeln;
 Write('Masukkan Nilai A: '); readln(A);
 Write('Masukkan Nilai B: '); readln(B);
 Write('Masukkan Nilai C: '); readln(C);
 Writeln;
 If (A<=B) And (A<=C) Then
     If (B<=C) Then
        Writeln(A,' ',B,' ',C)
     Else
        Writeln(A,' ',C,' ',B)
 Else If (B<=A) And (B<=C) Then
     If (A<=C) Then
        Writeln(B,' ',A,' ',C)
     Else
        Writeln(B,' ',C,' ',A)
 Else If (C<=A) And (C<=B) Then
     If (A<=B) Then
        Writeln(C,' ',A,' ',B)
     Else
        Writeln(C,' ',B,' ',A)
End.