Program Pascal untuk Menghitung Upah Pegawai

Berikut ini adalah contoh program pascal untuk menghitung upah pegawai berdasarkan golongan dan lamanya jam kerja:

program upahpegawai;
uses wincrt;
var
nama:string;
total,jamkerja,golongan:integer;
begin
write('Nama Pegawai :');readln(nama);
write('Golongan [1/2/3]:');readln(golongan);
write('Jam Kerja :');readln(jamkerja);
     if golongan=1 then
     begin
          if jamkerja>8 then
          begin
          total:=(400*(jamkerja-8))+2250;
          writeln('Upah Total :',total);
          end
          else if jamkerja<=8 then
          begin
          write('Upah Total : 2250');
          end
        end;
     if golongan=2 then
     begin
          if jamkerja>8 then
          begin
          total:=(475*(jamkerja-8))+2600;
          writeln('Upah Total :',total);
          end
          else if jamkerja<=8 then
          begin
          write('Upah Total : 2600');
          end
        end;
     if golongan=3 then
     begin
          if jamkerja>8 then
          begin
          total:=(600*(jamkerja-8))+3250;
          writeln('Upah Total :',total)
          end
          else if jamkerja<=8 then
          begin
          write('Upah Total : 3250');
          end
        end;
end.