program letsDoItAll; begin morganFreeman:=1; iLikeBooleans:=1=1; iLikeBooleans:=1<>1; iLikeBooleans:=1>2; iLikeBooleans:=1<2; iLikeBooleans:=3>=3; iLikeBooleans:=2<=3; while (iLikeBooleans) do begin while (2>1) do begin while (bang) do valerie:=2; end; end; end.