check/recurs.p


1
2
3
4
5
6
7
8
9
10
11
12

program main ( input, output );
        var a: integer;
	function bar (b: integer) : integer;
	var test:integer;
	begin
		test := bar(test);
		bar := test
	end;
begin
	a := bar(1);
	a := 1 + 1
end.