program funciones;

function f1(i : integer) : integer;
    function subf1(i : Integer) : Integer;
    begin
    end;
begin

end;

begin
end.