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