with
while
when
use
until
type
then
terminate
task
tagged
subtype
separate
select
reverse
reverse
return
requeue
renames
rem
record
range
raise
protected
procedure
private
pragma
package
out
others
or
of
null
not
new
mod
loop
limited
is
in
if
goto
generic
function
for
exit
exception
entry
end
elsif
else
do
digits
delta
delay
declare
constant
configuration
case
body
begin
array
and
all
aliased
access
accept
abstract
abs
abort
