Nested If

uses crt;
var nm:string;
kd_susu,jwb:char;
kd_uk,jml:integer;
merk,uk:string;
hrg,toha:longint;
ppn,tobay,ubay,ukem:real;
label awal;

begin
awal:
clrscr;
writeln('TOKO KELONTONG KERONCONGAN');
WRITELN('==========================');
writeln('A.Susu Dancow');
writeln(' 1.Ukuran Kecil');
writeln(' 2.Ukuran Sedang');
writeln(' 3.Ukuran Besar');
writeln('B.Susu Bendera');
writeln(' 1.Ukuran Kecil');
writeln(' 2.Ukuran Sedang');
writeln(' 3.Ukuran Besar');
writeln('C.Susu SGM');
writeln(' 1.Ukuran Kecil');
writeln(' 2.Ukuran Sedang');
writeln(' 3.Ukuran Besar');
writeln;
write('Masukkan nama kasir : ');readln(nm);
write('Masukkan kode susu[A/B/C] : ');readln(kd_susu);
write('Masukkan kode ukuran[1/2/3]: ');readln(kd_uk);
if upcase(kd_susu)='A' then
begin
merk:='Dancow';
if kd_uk=1 then
begin
uk:='Kecil';
hrg:=15000 ;
end
else if kd_uk=2 then
begin
uk:='Sedang';
hrg:=20000
end
else
begin
uk:='Besar';
hrg:= 25000;
end;
end
else
if upcase(kd_susu)='B' then
begin
merk:='Bendera';
if kd_uk=1 then
begin
uk:='Kecil';
hrg:=13500;
end
else if kd_uk=2 then
begin
uk:='Sedang';
hrg:=17500;
end
else
begin
uk:='Besar';
hrg:= 20000;
end;
end
else
begin
merk:='SGM';
if kd_uk=1 then
begin
uk:='Kecil';
hrg:=15000;
end
else if kd_uk=2 then
begin
uk:='Sedang';
hrg:=18500;
end
else
begin
uk:='Besar';
hrg:= 22000;
end;
end;
clrscr;
writeln('TOKO KELONTONG KERONCONGAN');
writeln('==========================');
writeln;
writeln('Nama Kasir : ',nm);
writeln('==========================');
writeln('Merk Susu : ',merk);
writeln('Ukuran Kaleng: ',uk);
writeln('Harga Susu : ',hrg);
write('Jumlah Beli : ');readln(jml);
writeln('==========================');
toha:=hrg*jml;
writeln('Total Harga : ',toha);
ppn:=0.1*toha;
writeln('PPN 10% : ',ppn:2:0);
tobay:=toha+ppn;
writeln('Total Bayar : ',tobay:2:0);
write('Uang Bayar : ');readln(ubay);
ukem:=ubay-tobay;
writeln('Uang Kembali : ',ukem:2:0);
writeln('===========================');
writeln(' Terima Kasih');
writeln;
write('Input data lagi[Y/T]?');readln(jwb);
if upcase(jwb)='Y' then
goto awal;
readln;
end.

Tampilan Input:


Tampilan Output:


Ketentuan Soal: