1 2 3 4 5 6 7 8 9 10 11
(* ERROR: procedures don't return values *) program main( input, output ); var a: integer; procedure boo(b: integer); begin a := 1 end; begin a := boo(a) end.