Contoh Program 'if then else'

KetikLah Program

Program Perulangan;
uses wincrt;
var
i: integer;
begin
for i:=1 to 3 do
writeln('Dewi Cantik');
end.

maka akan menampilkan :

Dewi Cantik
Dewi Cantik
Dewi Cantik

KetikLah Program

Program Hitung;
uses wincrt;
Var
i, j: integer;
begin
i:=10
repeat i:=i+1
writeln(i);
until i=16;
begin
j:=i+65
writeln('--------');
writeln('Jumlah=', j);
end;
end.

maka akan menampilkan :

11
12
13
14
15
16
--------
Jumlah=81

KetikLah Program

Program Bonus;
uses wincrt;
var
TP:longint;
begin
writeln('Total Pembelian=');readln(TP);
if TP>=100000 then
writeln('Diskon sebesar 10%')
else
if TP>=50000 then
writeln('Bonus:1 piring')
else
if TP>=10000 then
writeln('Bonus:1 gelas')
else
writeln('tidak ada bonus');
end.

maka akan menampilkan :

Total Pembelian=_ {inputkan berapa saja kemudian enter,maka akan menampilkan bonus yang didapat}