Ujian Tengah Semester

var
a, angka: integer;
begin
a := 5;

if (a = angka) then
begin
writeln('Hello, World');
end;
end.

Kalimat Hello, World akan tercetak di layar monitor

var
a, angka: integer;
begin
a := 5;

if (a = angka) then
begin
writeln('Hello, World');
end;
end.

Variabel angka berisi nilai 0 (nol)

var
a, angka: integer;
begin
a := 5;

if (a = angka) then
begin
writeln('Hello, World');
end;
end.

Kondisi a = angka menghasilkan nilai FALSE

var
a, b: integer;
begin
a := 5;
b := 8;

if (a < 5) xor (a < b) and (b > 5) then
begin
writeln('Halo FTIP');
end;
end.

Hasilnya: Halo FTIP

Operator XOR --> TRUE XOR TRUE menghasilkan TRUE