Contoh Program Menentukan Gaji Bersih

Program Ggolongan_;
uses wincrt;
var
gol,lagi:char;
anak:integer;
gj,ta,G:real;
begin

     write('Masukkan golongan anda : ');
     readln(gol);
     case gol of
     '1':gj:=5000000;
     '2':gj:=3000000;
     '3':gj:=2500000;
     else writeln('Golongan anda tidak terdaftar');
     end;
     write('Masukkan jumlah anak: ');
     readln(anak);
     if anak>2 then ta:=750000
     else if anak>0 then ta:=500000
     else if anak=0 then ta:=0
     else writeln('Jumlah anak salah');

     G:=gj+ta-(0.05*(gj+ta));
     writeln('Gaji bersih: Rp ',G:2:0);
     readln;
end.