program inclusao;

function foo(x : integer) : integer;
begin
   foo := sqr(x) - 2;
end;

var n : integer = 3;
begin
   writeln(foo(n));
   // ...
end.