gaji_golongan.pas

program gaji_golongan;
uses crt;

var
gol:char;
gaji:real;

begin
writeln('masukan golongan : ');
readln(gol);

if (gol='A') then
        begin
        writeln('golongan A');
        gaji:=1500000;
        writeln('gaji golongan A: ',gaji:0:0);
        readln();
        end
        else if (gol='B') then
            begin
            writeln('golongan B');
            gaji:=2000000;
            writeln('gaji golongan B: ',gaji:0:0);
            readln();
            end
else if (gol='C') then
            begin
            writeln('golongan C');
            gaji:=2500000;
            writeln('gaji golongan C: ',gaji:0:0);
            readln();
            end

else if (gol='D') then
            begin
            writeln('golongan D');
            gaji:=3000000;
            writeln('gaji golongan D: ',gaji:0:0);
            readln();
            end
            else
            writeln('tidak ada golongan tersebut');
            readln();

end.