program penjualan dg discon10%

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;
bayar:=total-disc;
write('bayar:',bayar:4:0);
if total>=5000 then
disc:=0.1*total
else
disc:=0;
writeln('');
read
end;
end.