Menggunakan If Then Else Pada Turbo Pascal 7

Komputer dapat mengambil keputusan untuk berdasarkan aliran logika yang telah ditentukan sebelumnya yang dikenal sebagai algoritma:

If condition Then statement; 

Di mana condition adalah sesuatu yang bernilai True atau False, dan statement adalah perintah yang akan dijalankan.

Dapatkah anda memberikan sebuah contoh pemakaian perintah If? Baiklah, misalnya kita akan membuat program menentukan pembayaran berdasarkan berdasarkan jumlah belanja, jika diatas 100000 (seratus ribu) mendapatkan potongan 3%, maka programnya adalah sebagai berikut:

Uses Crt;
Belanja: Real;
Write('Jumlah belanja ?');
Readln(Belanja);
If Belanja < 100000 Then 
Belanja := Belanja * 0.97;
Writeln ('Jumlah yang harus anda bayar', Belanja:10:2);
Readln;
end.

If conditon Then Statement1 Else Statement2;

ni lagi

program latihan;
Uses Crt;
VarBilangan: Integer;
BeginClrscr;
Write('Masukan Bilangan?'); 
Readln(Bilangan);
If (Bilangan Mod 2) = 0 Then
Writeln (‘Genap’);
else
Writeln (‘Ganjil’);
Readln;
End.