Program Upah Karyawan 'Pascal"

program gaji;
uses crt;
var

nama : string;
gol : char;
jjk,jamlembur : integer;
upahperjam,upahtotal : real;

const jamkerjanormal = 48;
const upahlembur = 3000;
begin
clrscr;
write('masukan nama karyawan : '); readln(nama);
write('masukan golongan karyawan : '); readln(gol);
write('masukan jumlah jam kerja karyawan : '); readln(jjk);
if gol = 'A' then
upahperjam := 4000
else
if gol = 'B' then
upahperjam := 5000
else
if gol = 'C' then
upahperjam := 6000
else
if gol = 'D' then
upahperjam := 7000;

if jjk upahtotal := jjk*upahperjam
else
jamlembur := jjk - jamkerjanormal;
upahtotal := (jamkerjanormal*upahperjam) + (jamlembur*upahlembur);

writeln('nama karyawan : ', nama);
writeln('gaji yang diterima karyawan : ', upahtotal:3:0);

readkey;
end.