with Ada.Text_IO; use Ada.Text_IO; procedure if_example is want_burgers: Boolean := True; begin if want_burgers then Put("BURGER TIME!"); end if; end if_example;