program gaji pegawai.pascal

Program  Data_Pegawai;

uses wincrt;

var

nama,nip,gol,jabatan,pangkat: String;

gapok: Integer;

begin

writeln('===============**SELAMAT DATANG DI PROGRAM INPUT DATA PEGAWAI**=================');

writeln('====================**KANTOR DINAS PENDIDIKAN NASIONAL**========================');

writeln('PERHATIAN HARAP TULIS DENGAN HURUF KAPITAL...!!!!');

write('Masukkan Nama Anda : ');readln(nama);

Write('Masukkan Golongan Anda (IIIA/IIIB/IIIC/IIID) : ');readln(gol);

if gol='IIIA' then

   begin

   gapok:=15000;

   pangkat:='Penata Muda';

  

   end

else if gol='IIIB' then

   begin

   gapok:=17000;

   pangkat:='Penata Muda TK.I';

  

   end

else if gol='IIIC' then

   begin

   gapok:=19000;

   pangkat:='Penata Muda';

   end

else if gol='IIID' then

   begin

   gapok:=21000;

   pangkat:='Penata';

   end

else

   writeln;

   writeln('----------------------------------------------------');

   writeln('Nama Anda : ',nama);

   writeln('Golongan Anda : ',gol);

    writeln('Pangkat Anda : ',pangkat);

   writeln('Gaji Pokok Anda : ',gapok);

  

writeln('----------------------------------------------------');

writeln('                  TERIMA KASIH                               ');          

End.