jawaban KUIS C

heeyyy kelas C...
ini jawaban kuis kalian...soalnya gampang tapi kenapa bnyak yang belomm bisa...hmmmm
parahnya lagi ada yang COPAS....nget belajar UTS sebentar lagi...

program gaji_pegawai;
uses
 winCrt;

 var
   nm,gol :string;
   ank,nip : integer;
   gapok,tunjangan,gaji_brsh :real;


 begin
  gotoxy(12,2);writeln('MENCETAK GAJI PEGAWAI');
  gotoxy(12,3);writeln('=====================');
  writeln;
  write('NIP            : ');readln(nip);
  write('Nama Pegawai   : ');readln(nm);
  write('Golongan       : ');readln(gol);
  write('Jumlah anak    : ');readln(ank);
 
  if gol ='IA' then
   gapok := 1500000 else
  if gol ='IIA' then
   gapok:= 2500000 else
  if gol ='IIIA' then
   gapok:= 3500000 else
  if gol ='IVA' then
   gapok:= 4500000;


 if ank >= 2 then
 begin
  tunjangan:= (0.10 * gapok);
  gaji_brsh:= (gapok + tunjangan);
 end
 else

 begin
 tunjangan:= 0;
 gaji_brsh:=gapok;
 end;

 clrscr;
 begin
  writeln('DATA GAJI KARYAWAN');
  writeln('------------------');
  writeln('NIP            : ',nip);
  writeln('Nama Pegawai   : ',nm);
  writeln('Golongan       : ',gol);
  writeln('Jumlah anak    : ',ank);
  writeln('Tunjangan      : ',tunjangan:6:0);
  writeln('Gaji Pokok     : ',gapok:6:0);
  writeln('Gaji Bersih    : ',gaji_brsh:6:0);
 end;
end.