with Ada.Text_io; use Ada.Text_io;
procedure dontEverDoThis is
-- if: Boolean; -- Reserved word "if" can't be an identifier
False: Boolean := True;
True: Boolean := not False;
Boolean: Float := 5.5;
Integer: Float := 5.5;
-- i: Integer; -- Integer is no longer a type
-- b: Boolean; -- Boolean is no longer a type
begin
if (1 = 2) = True then
put_line("Are you sure this is right?");
end if;
if (1 = 1) = False then
put_line("This is really Scary!");
end if;
if true /= false then
put_line("I feel better now!");
end if;
false := not (1 = 1);
if true = false then
put_line("Send me back to ITEC 120!");
end if;
if Boolean = Integer then
put_line("Tell me it ain't so!");
end if;
end dontEverDoThis;