contoh program pascal ( jual barang)

program elektronik;
uses wincrt;

var
kode_barang:char;
h_barang, j_barang,h_total:real;

begin;

gotoxy(30,10);writeln('menu pilihan');
gotoxy(15,12);writeln(' A . monitor');
gotoxy(15,13);writeln(' B . printer');
gotoxy(15,14);writeln(' C . harddisk');


write(' input kode barang: ');readln(kode_barang);

if (kode_barang= 'A') or (kode_barang= 'a')  then
begin
    write('input jumlah barang:');readln(j_barang);
    write('input h_barang     :');readln(h_barang);
    h_total:= j_barang * h_barang;
    writeln('barang yang anda beli adalah monitor');
    writeln('total harga barang adalah : Rp ',h_total:0:2);

    end
else


if kode_barang= 'B' then
begin
    write('input jumlah barang:');readln(j_barang);
    write('input h_barang     :');readln(h_barang);
    h_total:= j_barang * h_barang;
    writeln('total harga barang adalah : Rp ',h_total:0:2);
    end
else


if kode_barang= 'C' then
begin
    write('input jumlah barang:');readln(j_barang);
    write('input h_barang     :');readln(h_barang);
    h_total:= j_barang * h_barang;
    writeln('total harga barang adalah : Rp ',h_total:0:2);
    end

    else
    writeln('maaf, anda salah input kode pilihan barang');
    
    

readln;
donewincrt;
end.