Jawaban Quiss Online Pak Mesran Dalam konsep Pemrograman Pascal

uses crt;
var
   NIK,nama,golongan :string;
   gaji,pajak :real;
   gajibersih:real;



   begin
   clrscr;
   writeln('informasi pembayaran pegawai');
   write('input NIK      :');readln(NIK);
   write('input golongan :');readln(golongan);
   begin
   if NIK ='1'then
      nama :='Hendro'
   else if NIK ='2'then
        nama :='Dian'
   else if NIK='3' then
           nama:='Jhoni'
    end;
    begin
   if golongan ='1' then
      gaji :=1500000
   else if golongan ='2' then
           gaji :=2500000
   else if golongan ='3' then
           gaji :=3500000;
    end;

pajak :=0.05 * gaji ;
gajibersih :=gaji-pajak  ;
writeln('==========================');
writeln('informasi pembayaran gaji');
writeln('NIK             :',NIK);
writeln('namapegawai     :',nama);
writeln('golongan        :',golongan);
writeln('gaji            :',gaji :5:0);
writeln('pajak 0.05%     :',pajak:5:0);
writeln('gaji bersih     :',gajibersih:5:0);

readln;
end.