program GajiKaryawan;
    uses crt;
    var
        gol,istri: Char;
        anak : Integer;
        nama: String;
        gajiA,gajiB,gajiC,
        istriA,istriB,istriC,
        anakA,anakB,anakC,total : Longint;


begin
    gajiA := 20000000;
    gajiB := 25000000;
    gajiC := 30000000;
    istriA := 5000000;
    istriB := 10000000;
    istriC := 15000000;
    anakA :=5000000;
    anakB :=10000000;
    anakC :=15000000;
writeln('Hitung Pendapatan Karyawan');
writeln('************************************');
writeln('masukan Nama : ');readln(nama);
writeln('Masukan Golongan  A, B Atau C : ');readln(gol);
writeln('Jumlah Anak :  ');readln(anak);

if (gol = 'A') then
begin
    if (anak >= 2) then
    begin
        total := gajiA + istriA + anakA * 2
     end
    else
    total := gajiA + istriA + anakA * anak;
end
else if (gol = 'B') then
begin
    if (anak >= 2) then
    begin
        total := gajiB + istriB + anakB * 2
     end
    else
    total := gajiB + istriB + anakB * anak;
end
else if (gol = 'C') then
begin
    if (anak >= 2) then
    begin
        total := gajiC + istriC + anakC * 2
     end
    else
    total := gajiC + istriC + anakC * anak;
end;

writeln('Total Pendapatan : ',total);


readln();

end.