and
array
begin
case
const
div
do
downto
else
end
file
for
function
goto
if
in
label
mod
nil
not
of
or
packed
procedure
program
record
repeat
set
then
to
type
until
var
while
with
;; The following are not standard in pascal, but widely used.
get
put
input
output
read
readln
reset
rewrite
write
writeln
