latihan

program penggajian;
uses wincrt;
var
nm:string;
pos:char;
jl,galem,gator,gapok,g:longint;
pjk,gaber,p:real;
begin
writeln('Gaji karyawan PT.Sompax');
writeln('=======================================');
write ('input nama karyawan       :');readln(nm);
write ('input posisi kerja (o,s,m):');readln (pos);
write ('input jumlah jam kerja    :');readln (jl);

if pos= 'o' then
begin
gapok:= 1450000;
g:=10000;
p:=0.02;
end;

 if pos= 's' then
begin
gapok:=2000000;
 p:=0.04;
 g:=200000;
end;
 if pos= 'm' then
 begin
gapok:=3000000;
g:=30000;
p:=0.06;
end;


galem:=jl * g;
gator:=galem+gapok;
pjk:=gator*p;
gaber:=gator-pjk;
writeln;
writeln('Gajih Pokok              :Rp.',gapok);
writeln('Jumlah Gajih Lembur      :Rp.',galem);
writeln;
writeln('Jumlah Gajih Kotor       :Rp.',gator);
writeln;
writeln('Jumlah Pajak             :Rp.',pjk:0:2);
writeln;
writeln ('Jumlah Gajih Bersih      :Rp.',gaber:0:2);
writeln('========================================');

end.