Program pascal toko buah

uses crt;
var
nmpmbli, nmbuah, bonus, ket : string;
hrga, jmlbuah, disc, hasil, total, uangpmbyrn, hrgabuah, uangkmbln : real;
kode, ul : char;

begin
repeat
clrscr;
writeln('====================================');
writeln('|| "TOKO BUAH " ||');
writeln('====================================');
writeln('|| KODE || NAMA BUAH || HARGA(/KG)||');
writeln('====================================');
writeln('|| 1. || Anggur || Rp.8000 ||');
writeln('|| 2. || Apel || Rp.7000 ||');
writeln('|| 3. || Mangga || Rp.15000 ||');
writeln('|| 4. || Semangka || Rp.6000 ||');
writeln('|| 5. || Sirsak || Rp.11000 ||');
writeln('====================================');
writeln;
write('NAMA PEMBELI : '); readln(nmpmbli);
write('KODE BUAH : '); readln(kode);

if kode='1' then nmbuah:='Anggur' else
if kode='2' then nmbuah:='Apel' else
if kode='3' then nmbuah:='Mangga' else
if kode='4' then nmbuah:='Semangka' else
if kode='5' then nmbuah:='Sirsak';

case kode of
'1':hrgabuah:=8000;
'2':hrgabuah:=7000;
'3':hrgabuah:=15000;
'4':hrgabuah:=6000;
'5':hrgabuah:=11000;
end;

writeln('HARGA BUAH : Rp.',hrgabuah:0:0,'/KG');
write('JUMLAH BUAH : '); readln(jmlbuah);

if ((nmbuah='Anggur') and (jmlbuah >5)) then bonus:='Jam Dinding'
else if ((nmbuah='Apel') and (jmlbuah >5)) then bonus:='Baju Kaos'
else if ((nmbuah='Mangga') and (jmlbuah >5)) then bonus:='Jam Tangan'
else if ((nmbuah='Semangka') and (jmlbuah >5)) then bonus:='Payung'
else if ((nmbuah='Sirsak') and (jmlbuah >5)) then bonus:='Tas'
else bonus:='-';

writeln('KETERANGAN BONUS : ',bonus);

hasil:=hrgabuah*jmlbuah;

writeln('TOTAL HARGA : Rp.',hasil:0:0);

if ((hasil >50000) and (hasil <=100000)) then
begin
disc:=5/100*hasil;
ket:='(5%)';
end
else
begin
if hasil >100000 then
begin
disc:=10/100*hasil;
ket:='(10%)';
end;
end;

total:=hasil-disc;

write('UANG TUNAI : '); readln(uangpmbyrn);

uangkmbln:=uangpmbyrn-total;

clrscr;
writeln('====================================');
writeln(' "TOKO BUAH " ');
writeln('====================================');
writeln('NAMA PEMBELI : ',nmpmbli);
writeln('KODE BUAH : ',kode);
writeln('NAMA JENIS BUAH : ',nmbuah);
writeln('HARGA BUAH(/KG) : Rp.',hrgabuah:0:0);
writeln('JUMLAH PEMBELIAN : ',jmlbuah:0:0,'KG');
writeln('MENDAPATKAN DISKON : ',disc:0:0,' ',ket);
writeln('DAN BONUS PEMBELIAN: ',bonus);
writeln('TOTAL BAYAR ADALAH : Rp.',total:0:0);
writeln('UANG TUNAI : Rp.',uangpmbyrn:0:0);
writeln('UANG KEMBALIAN : Rp.',uangkmbln:0:0);
writeln('====================================');
writeln('Terimakasih Atas Kunjungan Anda');
writeln('Silahkan Datang Kembali..');
writeln('====================================');
writeln;
writeln;
writeln('Apakah Ingin Mengulang Program ?');
write('[Y/T] : '); readln(ul);
until upcase(ul)<>'Y';
end.