Contoh Program Gaji Sederhana Menggunakan Turbo Paskal

program gaji;
uses wincrt;
var
jam ,gj,L :integer;
nama, gol:char;
upah, totalgaji :real;
begin
write ('Nama karyawan   :');
readln (nama);
write ('Golongan        :');
readln(gol);
write ('Jam kerja       :');
readln(jam);
if gol = 'A' THEN
GJ := 5000
ELSE IF GOL = 'B' THEN
GJ :=6000
ELSE IF GOL = 'C' THEN
GJ:= 7500
ELSE
GJ:= 9000;
UPAH :=JAM*GJ;
writeln ('Gaji reguler anda :',gj);
readln;
end.