uses crt;
var
harga,jumlah :
longint;
kode : byte;
th :longint;
nama : string;
begin
clrscr;
writeln('Inputkan
Kode Produk[1,2,3]');
writeln('---------------------');
write('kode:');readln(kode);
case kode of
1 : begin
clrscr;
nama :='Televisi';
harga :=1750000;
writeln('Nama:',nama);
writeln('Harga:',harga);
write('jumlah:');readln(jumlah);
writeln('----------------------');
th :=harga*jumlah;
writeln('Total Harga:',th);
end;
2 : begin
clrscr;
nama :='DVD';
harga :=650000;
writeln('Nama:',nama);
writeln('Harga:',harga);
write('jumlah:');readln(jumlah);
writeln('----------------------');
th := harga*jumlah;
writeln('Total Harga:',th);
end;
3 : begin
clrscr;
nama :='CD ROOM';
harga :=450000;
writeln('Nama:',nama);
writeln('Harga:',harga);
write('jumlah:');readln(jumlah);
writeln('----------------------');
th :=jumlah*harga;
writeln('Total Harga:',th);
end;
end;
readln;
end.
Contoh
eksekusi program;
