contoh penggunaan IF-THEN dalam pascal

program perkiraan_gaji_dari_perkerjaannya;
uses crt;
var
    n:string;
    p,gol,ps,ju:integer;
    label ulang;
    label again;
    label mengulang;
    label lagi;
begin
clrscr;
 ulang:
 writeln('   perkiraan gaji dari pekerjaannya   ');
 writeln('   --------------------------------   ');
 write('nama        :');   readln(n);
 writeln('pekerjaan   :');
 writeln('   1.PNS         2.pegawai swasta');
 writeln('   3.pengusaha   4.lainnya');
 write('pekerjaan anda adalah:');readln(p);
 if p=1 then
  begin
  again:
  readln(gol);
  writeln('   golongan PNS   ');
  writeln('1.IA 2.IB 3.IC 4.ID 5.IE');
  writeln('6.IIA 7.IIB 8.IIC 9.IID 10.IIE');
  writeln('11.IIIA 12.IIIB 13.IIIC 14.IIID 15.IIIE');
  writeln('16.IVA 17.IVB 18.IVC 19.IVD 20.IVE');
  if gol in [1,6,11,16] then
  begin
   writeln('pekerjaan ',n,' adalah pegawai negeri golongan no',gol);
   writeln('maka gaji ',n,' adalah dua juta');
  end;
  if gol in [2,7,12,17] then
   begin
   writeln('pekerjaan ',n,' adalah pegawai negeri golongan no',gol);
   writeln('maka gaji ',n,' adalah empat juta');
  end;
  if gol in [3,8,13,18] then
   begin
   writeln('pekerjaan ',n,' adalah pegawai negeri golongan no',gol);
   writeln('maka gaji ',n,' adalah enam juta');
  end;
  if gol in [4,9,14,19] then
   begin
   writeln('pekerjaan ',n,' adalah pegawai negeri golongan no',gol);
   writeln('maka gaji',n,' adalah delapan juta');
  end else
  if gol in [5,10,15,20] then
   begin
   writeln('pekerjaan ',n,' adalah pegawai negeri golongan no',gol);
   writeln('maka gaji ',n,' adalah sepuluh juta');
  end;
  if gol>20 then goto again;
 end;
 if p=2 then
 begin
  mengulang:
  writeln('perkerjaan ',n,' adalah pegawai swasta');
  writeln(' daftar tempat pekerjaan pegawai swasta  ');
  writeln('1.sekolah      2.bank');
  writeln('3.perusahaan   4.lainnya');
  write('tempat bekerja:');  readln(ps);
  if ps=1 then writeln('maka gaji anda sebulan 3-5 juta');
  if ps=2 then writeln('maka gaji anda sebulan 5-10 juta');
  if ps=3 then writeln('maka gaji anda sebulan 8-16 juta');
  if ps=4 then writeln('pekerjaan anda tidak ada dalam daftar kami');
  if ps>4 then goto mengulang;
 end;
 if p=3 then
 begin
 lagi:
 writeln('pekerjaan ',n,' adalah pengusaha');
 writeln('  daftar usaha  ');
 writeln('1.makanan         2.kerajinan tangan');
 writeln('3.bahan bangunan  4.tekstil');
 writeln('5.lainnya');
 write('jenis usaha:'); readln(ju);
  if ju=1 then writeln('maka gaji anda adalah sekitar 5-10 juta');
  if ju=2 then writeln('maka gaji anda adalah sekitar 7-10 juta');
  if ju=3 then writeln('maka gaji anda adalah sekitar 8-12 juta');
  if ju=4 then writeln('maka gaji anda adalah sekitar 10-15 juta');
  if ju>4 then goto lagi;
 end;
 if p=4 then
 begin
  write('pekerjaan anda tidak ada dalam daftar kami');
  writeln(' TERIMA KASIH');
 end;
 if p>4 then goto ulang;
readln;
end.

setelah dicompile hasilnya

1.jika dimasukkan angka 1 dari jenis pekerjaan

2.jika yang dmasukan angka 2 adalah

3.jika yang dimasukan angka 3,maka hasilnya adalah

4.jika yang dipilih angka 4 maka hasilnya adalah

SEKIAN,SEMOGA MEMBANTU :):)