(2)
if_statement ::=
if condition then
sequence_of_statements
{elsif condition then
sequence_of_statements}
[else
sequence_of_statements]
end if;
(3)
condition ::= boolean_expression
(7)
if Month = December and Day = 31 then
Month := January;
Day := 1;
Year := Year + 1;
end if;
(8)
if Line_Too_Short then
raise Layout_Error;
elsif Line_Full then
New_Line;
Put(Item);
else
Put(Item);
end if;
(9)
if My_Car.Owner.Vehicle /= My_Car then -- see 3.10.1
Report ("Incorrect data");
end if;
-- Email comments, additions, corrections, gripes, kudos, etc. to: