Program Case 7

Programcase_sederhana1;

uses crt;

Var pil : integer;

Begin

Clrscr;

Writeln ('1 : pensil');

Writeln ('2 : buku');

Writeln ('3 : mistar ');

Writeln ('4 : penghapus');

Writeln ('5 : tas');

Writeln ('6 : sepatu');

Writeln ('7 : pulpen');

Writeln ('8 : peraut pensil');

Writeln ('9 : dasi');

Writeln ('10 : topi');

write('masukan angka : ');

Readln (pil)   ;

Case pil of

1: writeln ('harga Rp 2.500');

2: writeln('harga Rp 2.000');

3: writeln ('harga Rp 1.500');

4: writeln ('harga Rp 500');

5: writeln ('harga Rp 55.500');

6: writeln ('harga Rp 75.500');

7: writeln ('harga Rp 1.500');

8: writeln ('harga Rp 1.000');

9: writeln ('harga Rp 5.500');

10: writeln ('harga Rp 6.500');

Else

writeln (' maaf anda salah memasukan pilihan ');

End;

Readln;

End.