latihan14;
uses crt;

var
gapok, bonus, tunjangan, transport, pilihanlama, gaber, pilihanlama, pegtap, keluarga, : integer;
nama: char;

begin
clrscr;
writeln('Program Menghitung Gaji Karyawan');
writeln('================================');
writeln;
write('Masukkan nama pegawai : '); readln(nama);
write('Masukkan Gaji Pokok : '); readln(gapok);
writeln('Apakah masa kerja lebih dari lima tahun ?');
writeln(' 1. Ya');
writeln(' 2. Tidak');
writeln('Masukkan Pilihan = '); readln(pilihanlama);
writeln;
if pilihanlama = 1 then
begin
bonus:=gapok*15%;
end
else
if pilihanlama = 2 then
begin
bonus:=0;p
end
else writeln('Masukkan angka 1 atau 2 !!');
writeln('Apakah anda pegawai tetap ?');
writeln(' 1. Ya');
writeln(' 2. Tidak');
write(' Masukkan pilihan = '); readln(pegtap);
if pegtap = 1 then
begin
transport:=50000;
end
else
if pegtap = 2 then
begin
transport:=0;
end
else writeln('Masukkan angka 1 atau 2 !!');
writeln('Apakah anda sudah berkeluarga ?');
writeln(' 1. Ya');
writeln(' 2. Tidak');
write('Masukkan pilihan = '); readln(keluarga);
if keluarga = 1 then
begin
tunjangan:=gapok*10%'
end
else
if keluarga = 2 then
begin
tunjangan:=0;
end
else writeln('Masukkan angka 1 atau 2 !!');

gaber:=gapok+bonus+tunjangan+transport;

writeln;
writeln('Gaji bersin ',nama,' adalah ,'gaber);
readln
end.