program letsDoItAll;
begin
morganFreeman:=1;

Evaluation --> morganFreeman := 1

iLikeBooleans:=1=1;

Evaluation --> iLikeBooleans := 1 (converted from boolean to integer)

iLikeBooleans:=1<>1;

Evaluation --> iLikeBooleans := 0 (converted from boolean to integer)

iLikeBooleans:=1>2;

Evaluation --> iLikeBooleans := 0 (converted from boolean to integer)

iLikeBooleans:=1<2;

Evaluation --> iLikeBooleans := 1 (converted from boolean to integer)

iLikeBooleans:=3>=3;

Evaluation --> iLikeBooleans := 1 (converted from boolean to integer)

iLikeBooleans:=2<=3;

Evaluation --> iLikeBooleans := 1 (converted from boolean to integer)

while (iLikeBooleans) do

Evaluation --> while (true) do
        begin
        while (2>1) do

Evaluation --> while (true) do
                begin
                        while (bang) do valerie:=2;

Evaluation --> valerie := 2

                end;
        end;
end.
Parsing of program section complete!
Analysis complete, no syntax error!