6.3 More on #5, 6

procedure putRow(c : char, n : int)
   for i : 1 .. n
      put c..
   end for
end putRow

procedure pattern(x : int)
   for i : 1 .. x
      putRow("*", i)
      put ""
   end for
end pattern

var num : int
pattern(3)
put "========================="
pattern(5)
put "-------------------------"
put "How many"
get num
pattern(num)
put "+++++++++++++++++++++++++"
pattern(num*2)