program	SemanAnaly is

function F1(index:integer; var out:char; x,y,z:integer) return char is forward;

function F1(index:integer; var out:char; x,y,z:integer) return char is
begin
	out :=1
end;

begin

end.