ini gan

Program Hitung_Ggaji_Karyawan;
uses crt;
label
awal;
var
   NIP                  : string[8];
   Nama                 : string[25];
   Gol,lagi,PPN                 : string;
   Status           : string[5];
   Jumlah_anak          : integer;
   total_gajih,gajih_pokok,tunjangan_anak:real;


Procedure penghitungan_penggolongan;
var
   tunjangan_kawin:real;
   gaji_pokok,total_gaji,tunjangan_anak:real;
begin
     write('NIP                         : '); readln(NIP);
     write('Nama                        : '); readln(Nama);
     write('Golongan I/II/III/IV        : '); readln(Gol);
     write('Status Menikah y/t          : ');readln(Status);
     write('Jumlah Anak                 : ');readln(Jumlah_anak);

     if Gol='I' then
        begin
        PPN:='10%';
        gajih_pokok:=1250000*0.1;
        end
      else
     if Gol='II' then
        begin
        PPN:='12,5%';
        gajih_pokok:=1350000*0.125;
        end
        else
     if Gol='III' then
        begin
        PPN:='15%';
        gajih_pokok:=1500000*0.15;
        end
      else
        begin
        PPN:='20%';
        gajih_pokok:=1750000*0.20;
        end;

     if Status='y' then
     begin
        if Jumlah_anak <=3 then
        begin
        total_gaji:=gaji_pokok+Jumlah_anak;
        total_gajih:=total_gajih*0.1;
        end
        else
        begin
        total_gajih:=total_gajih*0.1;
        end;
     end
     else
     begin
        total_gajih:=gajih_pokok;
     end;
     writeln('NIP                       :Rp ',NIP:20);
     writeln('Nama              :Rp ',nama:20);
     writeln('Golongan              :Rp ',Gol:20);
     Writeln('PPN                      : ',PPN:20);
     writeln('Total_gaji                        :Rp ',total_gaji:20:2);
end;

{MASUK DALAM PROGRAM UTAMA}
begin

     begin
     awal:
     clrscr;
     penghitungan_penggolongan;
     write('Input Lagi y/t :');
     readln(lagi);
     end;
     if lagi = 'y' then
     begin
     goto awal;
     end
     else
     begin
     Writeln('Tank For Use');
     end;
end.