Program Case 3

program gaji;

uses crt;

var gol:char;

gapok :longint;

begin

        clrscr;

        write('masukkan golongan[a,b,c,d]: ');

        readln(gol);

case gol of

'a' : GAPOK:=2000000;

'b' : GAPOK:=1750000;

'c' : GAPOK:=1500000;

'd' : GAPOK:=1250000;

else gapok:=1000000;

end;

writeln('gaji pokok: ',GAPOK);

readln;

end.