Contoh Program If Di Pascal

IF dan Else

digunakan untuk memilih kondisi dan memberikan nilai pada kondisi tersebut bila benar dan bila salah.
bentuk sintaksnya:
IF (kondisi) THEN nilai_jika_benar;
  ELSE nilai_jika_salah;

Kondisi berisi 3 komponen
OPERATOR : dapat berupa tanda =, >, <, <>, >=, <=, and, not, or

Contoh 1 :
jika nilai > 70 maka LULUS, jika tidak maka GAGAL

program nilai;
uses crt;
var nilai:integer;
begin
write('masukkan nilai anda :'); readln(nilai);
if nilai>70 then writeln('LULUS')
else writeln('GAGAL');
readln;
end.
Contoh 2 :
untuk mengetahui nilai siswa
jika nilai >=90 maka nilai A
>=80 maka nilai B
>=70 maka nilai C
< 60maka nilai D

program akhir;
uses crt;
var nilai:integer;
begin
write('masukkan nilai anda :'); readln(nilai);
if nilai >=85 then writeln('nilai A')
else 
if nilai>=75 then writeln('nilai B')
else 
if nilai>=65 then writeln('nilai C')
else writeln('nilai D');
readln;
end.