program penjualan+discon+hadiah

program mini_market;
uses wincrt;

var
i:integer;
kode_br:string;
nama_br:string;
harga_satuan:integer;
jumlah:byte;
disc:real;
bayar:real;
total:real;

begin
for i:=1 to 5 do
begin
writeln('####program jual####');
write('masukan kode br:');
readln (kode_br);
write('masukan nama br:');
readln(nama_br);
write('masukan harga satuan:');
readln(harga_satuan);
write('masukan jumlah:');
readln(jumlah);
total:=harga_satuan*jumlah;
if total>=5000 then
write('kode,a,mendapatkan buku:')
else
if total>3000 then
write('kode b mendapatkan pena:');
if total<1000 then
write('kode c tidak mendapat hadiah:');

bayar:=total-disc;
write('bayar:',bayar:4:0);
if total>=5000 then
disc:=0.1*total
else
disc:=0;
writeln('');
read;
end;


end.