STRUKTUR IF TERSARANG

Struktur IF TERSARANG merupakan bentuk dari suatu statemen IF yang berada dalam lingkungan statemen if lainnya.
Contoh program:
uses wincrt;
var
bil:Integer;
Begin
write(‘Masukkan sebuah bilangan:’);
readln(bil);
If (bil>0) then
Begin
writeln(‘Bilangan positif’);
If (bil mod 2=0) then
writeln (‘Bilangan genap’)
Else
writeln (‘Bilangan ganjil’);
End
Else
Begin
writeln (‘Bilangan negatif’);
End;
End.
Hasil eksekusi dari program adalah:
Masukkan sebuah bilangan: 4
Bilangan positif
Bilangan genap