(* discard.pas - What happens when we accidentally throw away the
 * value returned by a function?
 *)
program discard;

var
  value, result : integer;

(* for a given value, return 7 less than 3 times the square. *)
function f (x : integer) : integer;
  begin
    f := 3 * x * x - 7;
  end;

(* main program *)
begin
  write('Please enter an integer:  ');
  readln(value);
  f(value);
  
  writeln('After applying the function, the answer is ', result);
end.