Contoh Program dengan If..then...else...

program HargaBarangOk;
{$APPTYPE CONSOLE}
uses SysUtils;
var
i:real;
const
a=50000;
b=100000;
label
mulai;
begin
mulai:
writeln('Masukkan Harga Barang:');
readln(i);
If i>b then
begin
i:=i-(i*15/100);
writeln('=================================');
writeln('Anda mendapatkan diskon 15%');
writeln('Total pembelian anda:',i:5:0);
writeln('=================================');
goto mulai;
end
else
if i>a then
begin
i:=i-(i*10/100);
writeln('=================================');
writeln('Anda mendapatkan diskon 10%');
writeln('Total pembelian anda:',i:5:0);
writeln('=================================');
goto mulai;
end
else
begin
writeln('=================================');
writeln('Anda tidak mendapatkan diskon');
writeln('Total pembelian anda:',i:5:0);
writeln('=================================');
end;
readln;
end.

HASIL Setelah di RUN(F9 pd Delphi):
Masukkan Harga Barang:
60000
=================================
Anda mendapatkan diskon 10%
Total pembelian anda:54000
=================================
Masukkan Harga Barang:
200000
=================================
Anda mendapatkan diskon 15%
Total pembelian anda:170000
=================================
Masukkan Harga Barang:
25000
=================================
Anda tidak mendapatkan diskon
Total pembelian anda:25000
=================================