jawaban KUIS D

nie jawaban hasil kuis buat temen2 kelompok D...masakkkk soal kayak begini di bilang sulit...

yang penting mau usaha semuanya pasti bisa,,soalnya gampang,,heeee
bisa kalian liat sendiri jawabanya di bawah nie,,,!!!
moga bisa bermanfaat yach...ingett belajarrrr sebentarrr lagi UTS...!!!

program Gaji;

uses
    winCrt;

var
   gp,gb,pjk,js,tis,ta,tjb:real;
   nik:string[10];
   nk:string[27];
   sts:string[9];
   jb:string[15];
   ja:byte;

begin
gotoxy (12,3);writeln('PROGRAM PENCETAKAN GAJI KARYAWAN');
gotoxy (12,4);writeln('________________________________');
gotoxy (12,6);writeln('## MASUKKAN DATA KARYAWAN ##');
writeln;
write('Nomor Induk Karyawan = '); readln(nik);
write('Nama Karyawan        = '); readln(nk);
write('Status               = '); readln(sts);
write('Jumlah Anak          = '); readln(ja);
write('Jabatan              = '); readln(jb);
clrscr;

if jb='manager' then
   begin
        gp := 3500000;
        tjb:= 2000000;
   end
else
if jb='supervisor' then
   begin
        gp := 2500000;
        tjb:= 1500000;
   end
else
if jb='mandor' then
   begin
        gp := 1500000;
        tjb:= 1000000;
   end
else
begin
     tjb:=0;
end;


if sts='menikah' then
   begin
        tis:=0.1*gp;
   end
else
   begin
        tis:=0;
   end;

if ja<=3 then
   begin
        ta:=0.05*gp*ja;
   end
else
if ja>3 then
   begin
        ta:=0.05*gp*3;
   end
else
   begin
        ta:=0;
   end;


pjk:=0.025*gp;
js:=0.01*gp;
gb:=(gp+tis+ta+tjb)-(pjk+js);

gotoxy (12,3);writeln('DATA GAJI KARYAWAN');
gotoxy (12,4);writeln('==================');
writeln;
writeln('Tunjangan Istri     : Rp. ', tis:9:0);
writeln('Tunjangan Anak      : Rp. ', ta:9:0);
writeln('Tunjangan Jabatan   : Rp. ', tjb:9:0);
Writeln('Pajak               : Rp. ', pjk:9:0);
writeln('Jamsostek           : Rp. ', js:9:0);
writeln('Gaji Bersih         : Rp. ', gb:9:0);
end.