check/recurs-proc.p


1
2
3
4
5
6
7
8
9
10

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