menghitung diskon dengan menggunakan bahasa pascal

Buat program untuk menghitung diskon, yang mana kode barang = ‘PK01’, nama barang = ‘Pakaian’, harga satuan Rp. 75.000,- , jumlah yg dibeli 2 buah. Jika membeli tidak kurang dari 5buah, maka akan mendapat diskon 12,5% dari harga total. Tampilkan ke layar kode barang, namabarang, harga satuan, jumlah yang dibeli, diskon dan total bayar.
program Menghitung_Diskon;
{I.S. : Diberikan kode barang, nama barang, harga satuan, dan jumlah yang dibeli}
{F.S. : menampilkan diskon dan total bayar}
var
JumlahBiaya, TotalBayar, Diskon: real;
JumlahyangDibeli, HargaSatuan : integer;

begin
write('Kode Barang = PK01');readln;
write('Nama Barang = Pakaian');
HargaSatuan := 75000;readln;
write('Harga Satuan = Rp. ',HargaSatuan,',-');readln;
JumlahyangDibeli := 2;
write('Jumlah yang Dibeli = ',JumlahyangDibeli,' buah');readln;
JumlahBiaya := JumlahyangDibeli * HargaSatuan;
write('Jumlah Biaya = Rp. ',JumlahBiaya:5:2);readln;
if (JumlahyangDibeli >= 5) then
Diskon:= JumlahBiaya*12.5/100
else
Diskon:= 0;
write('Diskon = Rp. ',Diskon:5:2,',-');readln;
write('Total Bayar = Rp. ',JumlahBiaya-Diskon:5:2,',-');
readln;
readln;

end.