PROGRAM PENJUALAN TOKO PASCAL

PROGRAM PENJUALAN_TOKO_PASCAL;
USES CRT;

VAR
nofactur,tanggal,kode,nama :string;
bayar,jml,harga :longint;


BEGIN
CLRSCR;
writeln('DAFTAR FAKTUR');
writeln('TOKO PASCAL');
writeln('===============================');
writeln(' ');
write('no faktur :');
readln(nofactur);
write('tanggal :');
readln(tanggal);
write('kode barang :');
readln(kode);
IF(kode='A')then
BEGIN
nama:='baju';
harga:=200000;
END;
IF(kode='B')then
BEGIN
nama:='celana';
harga:=250000;
END;
IF(kode='C')then
BEGIN
nama:='kemeja';
harga:=300000;


END;
writeln('nama barang :',nama);
writeln('harga satuan :',harga);
write('jumlah barang :');
readln(jml);
Bayar:=jml*harga;
writeln('bayar :Rp',bayar);
readln(kode);
END.