procedure procedurename ( [parameter_list] )
begin
  [local variable declarations]
  statements
end

program
begin
  [local variable declarations]
  statements
end

Example 1: (a) Procedure Block Structure; (b) Program Block Structure.