Disk_1 Disk_2 Disk_3 Small_Disk Medium_Disk Large_Disk
procedure Free procedure Assign function Multiply procedure Rescale procedure Print_Titles function Roll_Two procedure Correct_TableFunctions that return a boolean value often begin with Is
function Is_Empty return Boolean function Is_All_Zero return Boolean
I := I + 1; -- Add one to IAnswer the question why you are doing it.
I := I + 1; -- Prepare for next record in list
procedure Main is -- declarations begin -- statements end Main;
if ... then -- statements elsif ... then -- statements else -- otherwise end if;
while ... loop -- The body -- of the loop. end loop;