Program Harga Satuan

Ini adalah program perhitungan harga satu, dengan format perkalian harga jumlah barang yang di beli, maka inilah programnya dibawah ini, silahkan dicopas(copy paste).
program harga_barang;

uses wincrt;

var

nb:string;

tb,hb,jb:real;

{nb=nama barang,tb=total bayar,hb=harga barang

jb=jumlah barang}


begin

writeln('===========================');

writeln(' Pembuat : Bustomo Ali Husen   ');

writeln('***********INPUT***********');

writeln('---------------------------');

write('Masukan nama barang  :');read(nb);

write('Masukan jumlah barang:');read(jb);

if jb < 100 then hb:=10000;

if jb >= 100 then hb:=9500;

if jb < 150 then hb:=9500;

if jb >= 150 then hb:=10000;

tb:=jb*hb;

writeln;

writeln('******************************');

writeln('=============OUTPUT===========');

writeln('------------------------------');

writeln('Nama   barang      :',nb);

writeln('Jumlah barang      :',jb:3:0);

writeln('Harga barang satuan:Rp',hb:5:0);

writeln('Total harga        : Rp',tb:7:0);

writeln('******************************');

end.
Ini adalah inputnya