1module main;
2
3from io import Writef, output;
4
5var global : integer;
6
7procedure p (i : integer; s : array of char; j : integer);
8begin
9 Writef(output, "in p(%d, %s, %d)\n", i, s, j);
10 global := 10;
11end p;
12
13begin
14 global := 3;
15 p(3, "blah", 4);
16end main.
17