USES CRT;
VAR
          STATUS,NAMA,GOL:STRING;
          GAJI,PAJAK,TGAJI,TKELUARGA:REAL;
BEGIN
         WRITE('NAMA KARYAWAN:');READLN(NAMA);
         WRITE ('GOLONGAN:');READLN(GOL);
        WRITE('STATUS:');READLN(STATUS);

         IF GOL='IIIA'THEN
              GAJI:=2.500.000
        ELSE IF GOL='IIIB'THEN
             GAJI:=3.500.000
        ELSE IF='IIIC'THEN
             GAJI:=4.500.000
        PAJAK:=0,05*GAJI;
        IF STATUS='M' THEN
       TKELUARGA:=0,1*GAJI
ELSE
       TKELUARGA:=0;
 TGAJI:=GAJI-PAJAK+TKELUARGA;
  WRITELN('GAJI POKOK:RP',GAJI:8:0);
   WRITELN('PAJAK:RP',PAJAK:8:0);
END.