program kuis;
uses crt;
label
star,stop;
const
judul = 'DATA PENJUALAN';
judul_B = 'maju mundur';
var
nama_pembeli, nama_barang : string [25];
alamat_pembeli : string [30];
kode_barang, satuan_barang : string [6];
no_hp : string [12];
harga_barang, jumlah_beli, jumlah_bayar : longint;
diskon, total_bayar: real;
begin
clrscr;
nama_pembeli := 'anang kurniawan';
alamat_pembeli := 'tanjung genting';
no_hp := '081367253832';
kode_barang := 'EQ47FW';
nama_barang := 'Minyak Goreng';
satuan_barang := 'Kg';
harga_barang := 150000;
jumlah_beli := 4;
jumlah_bayar := harga_barang * jumlah_beli;
diskon := 0.1 * jumlah_bayar;
total_bayar := jumlah_bayar - diskon;
writeln(' ',judul);
writeln(' ',judul_b);
writeln('=================================');
goto star;
write('lanjutkan');
write('tidaak ada yang salah');
star:
writeln('Nama Pembeli : ',nama_pembeli);
writeln('Alamat Pembeli : ',alamat_pembeli);
writeln('No Hp : ',no_hp);
writeln('Kode Barang : ',kode_barang);
writeln('Nama Barang : ',nama_barang);
writeln('Satuan Barang : ',satuan_barang);
writeln('Harga Barang : ',harga_barang);
writeln('Jumlah Beli : ',jumlah_beli);
writeln('Jumlah Bayar : ',jumlah_bayar);
writeln('Diskon : ',diskon);
writeln('Total Bayar : ',total_bayar);
writeln('');
goto stop;
write('data sudah siap');
write('berikutnya');
stop:
writeln('Terima Kasih Sudah datang');
readln;
end.
