Fungsi If dalam bahasa pemograman Pascal

ini adalah program untuk mencari bilangan ganjil dan genap

  Uses Crt;
  var
  x : integer;
  begin
  clrscr;
  write('Masukan Bilangan : ');readln(x);
  writeln('***********');
  if (x mod 2) = 0 then
     writeln('Genap')
  else
      writeln('Ganjil');
  readln;
  end.

ini adalah program untuk memvalidasi sebuah username dan password

  uses crt;
  var
  a,b : string[100];
  begin
  clrscr;
  write('masukan Username');readln(a);
  write('masukan Password');readln(b);

  if a='stmik' then
     if b='logika' then
     writeln('Username dan password benar')
  else
      writeln('Username dan password salah');
  readln;
  end.

Berikut pemanfaatan program if mencari nama mahasiswa

  uses crt;
var
a,b : string[100];
begin
clrscr;
write('Isi NPM : ');readln(a);
if (a='14795') then
   b:='Tomy Satri Alasi';
if (a='14796') then
   b:='Deni Syahputra';
if (a='4799') then
   b:='Mikardo Ari Wijaya';
   writeln('Nama Lengkap : ',b);
readln;
end.

Ini adalah program untuk membeli sebuah laptop berdasarkan kode laptop

  uses crt;
  var
  a,b : string[100];
  c,d : integer;
  begin
  clrscr;
  write('Isi Kode Barang : ');readln(a);
  write('Jumlah Beli : ');readln(d);
  if (a='x1') then
     b:='Laptop Acer';
     c:=110;
  if (a='x2') then
     b:='Laptop HP';
     c:=120;
  if (a='x3') then
     b:='Laptop Asus';
     c:=130;

     writeln('Kode Laptop : ',a);
     writeln('Nama Laptop : ',b);
     writeln('Harga Laptop : ',c);
     writeln('Jumlah Beli Laptop : ',d);
     writeln('Total Bayar : ', c*d ,' Ribu Rupiah');

  if((c*d)>260) then
  	writeln('Bonus Payung');
  readln;
  end.