Percabangan if..else digunakan untuk pengujian sebuah kondisi. Jika kondisi yang diuji tersebut terpenuhi, maka program akan menjalankan pernyataan-pernyataan tertentu. Jika kondisi yang diuji salah, program akan menjalankan pernyataan yang lain.
Contoh :
{

Uses Crt;
Var
 Nil1, Nil2 : Integer;
 NilRata    : Real;
Begin
  ClrScr;
  Write('Masukan Nilai 1 : ');
  ReadLn(Nil1);
  Write('Masukan Nilai 2 : ');
  ReadLn(Nil2);
  NilRata := (Nil1 + Nil2)/2;
  WriteLn('Nilai Rata-Rata = ', NilRata:5:2);
  IF NilRata >= 60 THEN
    WriteLn('Hasilnya = Lulus')
  ELSE
    WriteLn('Hasilnya = Gagal');
 ReadLn;
End.

}


Note : wincrt digunakan di turbo pascal for windows
            sedang crt digunakan di pascal for dos
Sumber : Link Terkait

>> Selamat Mencoba <<