uses wincrt; var nmbrg,brc:string; prc,jmb,ttl:integer; begin {Program Input Data} write('Masukkan Nama Barang :'); readln(nmbrg); write('Masukkan Barcode :'); readln(brc); write('Jumlah Barang :'); readln(jmb); Write('Masukkan Harga :'); readln(prc);{Proses Menampilkan Data} clrscr;{Membersihkan Layar} gotoXY(33,3);writeln ('JOEAN-SWALAYAN'); gotoXY(32,5);writeln ('YOUR RECEIP TANKS'); gotoXY(20,7);writeln ('======================================='); gotoXY(20,9);writeln ('Nama Barang '); gotoXY(20,10);writeln(' :',nmbrg); gotoXY(20,11);writeln('Nomor barcod '); gotoXY(20,12);writeln(' :',brc); gotoXY(20,13);writeln('Jumlah Barang '); gotoXY(20,14);writeln(' :',jmb); gotoXY(20,15);writeln('Harga :',prc); gotoXY(20,16);writeln('---------------------------------------'); ttl:=jmb*prc; gotoXY(20,17);writeln('Jumlah Total :',ttl); gotoXY(20,18);writeln('======================================='); gotoXY(41,25);writeln ('PLEASS CALL AGAIN'); readln; end.