program gaji_pegawai

program gaji_pegawai;
uses crt;
var
        gajipokok, bonus, gajitotal : real;
        status : integer;
        nama : string;
begin
clrscr;
        write ('Masukan Nama Pegawai : '); readln(nama);
        write ('Masukan Gaji Pokok   : Rp.'); readln(gajipokok);
        write ('Status (1 = menikah, 2 = belum menikah) : '); readln(status);
        writeln;
        writeln ('============================= ');
        writeln;
        writeln ('Nama karyawan : ', nama);
        writeln ('Gaji pokok    : Rp.', gajipokok :8:2);
if status =1 then
begin
        bonus :=((25/100)*gajipokok);
        writeln ('Bonus         : Rp.',bonus :8:2);
end
else
if status =2 then
begin
        bonus :=((10/100)*gajipokok);
        writeln ('Bonus         : Rp.',bonus :8:2);
end
else
        writeln ('', bonus :8:2);
        gajitotal := gajipokok+bonus;
        writeln ('Total Gaji    : Rp.',gajitotal :8:2);
readln;
end.