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.