Nested IF dalam Pascal

Moshi-moshi Minna-san.

stelah contoh coding Case OF, sekarang contoh coding IF bersarang atau Nested IF.
Nested IF atau biasa dikenal IF bersarang adalah statement IF yang berada di dalam Statement IF lainnya.

contoh:

uses wincrt;
var
merk: string;
berat:integer;

begin
write('Merk Detergent : ');readln(merk);
write('Berat (kg) : ');readln(berat);

if merk='Rinso' then begin
if berat = 5 then harga:=50000
else
if berat = 1 then harga:=15000
end;
if merk='Daia' then begin
if berat = 5 then harga:=30000
else
if berat = 1 then harga:=10000
end;
writeln('Harga : Rp.',harga:0:0);

end.

jya nee minna, hope this will help..