Program gajiPegawai;

Uses Math, sysutils, Crt;

label programUtama;

var
        masaKerja, bilangan: longint;
        gajiPokok: extended;
        isExit: string;

function hitungGaji(gp, p: extended): extended;

var
        tambahan: extended;

begin
        tambahan := gp * p / 100;
        hitungGaji := gp + round(tambahan);
end;

begin
        textcolor(0);
        textbackground(7);

        programUtama:

        Clrscr;

        writeln('=========================================================');
        writeln('                      PROGRAM GAJI                       ');
        writeln('=========================================================');
        writeln('');
        writeln('Silahkan masukkan masa kerja pegawai!');
        readln(masaKerja);
        writeln('Silahkan masukkan jumlah gaji pokok/bulan pegawai!');
        readln(gajiPokok);

        if masaKerja <= 10 then
        begin
                bilangan := round(hitungGaji(gajiPokok, 10));
        end
        else
        begin
                bilangan := round(hitungGaji(gajiPokok, 25));
        end;

        writeln('=========================================================');

        writeln('Gaji Akhir: Rp. ', bilangan, ',00');

        writeln('=========================================================');
        writeln('');

        writeln('Apakah Anda ingin mengulang program? (Y/N)');
        write('Pilihan Anda: ');
        readln(isExit);

        if (isExit = 'Y') or (isExit = 'y') then
        begin
                goto programUtama;
        end
        else
        begin
                exit;
        end;
end.