Program Case 8

Programcase_sederhana2;

uses crt;

Var pil : integer;

            nama : string;

Begin

Clrscr;

write ('nama : ');

readln (nama);

writeln ('1: gol.I ');

writeln ('2: gol.II ');

writeln ('3: gol.III ');

write ('pilih golongan (dalam bentuk angka): ');

Readln (pil)   ;

Case pil of

1: writeln (nama,' gaji anda adalah Rp 2.500.000');

2: writeln (nama,' gaji anda adalah Rp 3.000.000');

3: writeln (nama,' gaji anda adalah Rp 3.500.000');

Else

writeln (' maaf',nama,' anda salah memasukan pilihan ');

End;

Readln;

End.