program tugas_penjualan; uses wincrt; var kd:char; nb,hadiah:string; hs:integer; jml:byte; total,bayar,disc:real; i:integer; begin for i:=1 to 5 do begin writeln('masukkan kode barang:'); readln(kd); writeln('masukkan nama barang:'); readln(nb); writeln('masukkan jumlah:'); readln(jml); writeln('masukkan harga/pcs:'); readln(hs); total:=hs*jml; writeln('total harga:',total:0:0); if total >=5000 then disc:=0.1*total else disc:=0; writeln('disc anda:',disc:0:0); bayar:=total - disc; writeln('pembayaran anda:',bayar:0:0); if kd='a' then hadiah:='pena' else if kd='b' then hadiah:='pensil' else hadiah:='tidak ada'; writeln('hadiah anda :',hadiah); end; end.