Program Kasir Sederhana (2)

uses crt;
var
NB:string;
HB:longint;
JB:integer;
TB:longint;
begin
clrscr;
write('Masukkan Nama Barang :');readln(NB);
Writeln('Masukkan Harga Barang :');readln(HB);
writeln('Masukkan Total barang :');readln(JB);
TB:=(HB*JB);
writeln('Total Bayar :',TB);
readln;
end.

0 comments:

Posting Komentar

Pengikut