function f(n : integer) : integer;
  var
    i : integer;
  begin
    i := n * n;
    f := i + n
  end;

begin
  writeln('f(100) returns a value of ',f(100))
end.