procedure foo;
var
   t	: real;
   page	: integer;
begin
   page := size(page);
   t := arctan(time);
end;

function time : integer;
forward;

function time : integer;
begin
   time := maxint;
end; { time }

procedure atan;
var
   t :  integer;
begin
   t := time;
end;