Найти значение функции : y= 3x^2-6x-7 "^" -степень.

//прога на Pascal`e
var
x : int64;
//
function f (x: int64):int64;
begin
f:=3*x*x-6*x-7;
end;
//
begin
write ('Введите значение X: ');
readln (x);
writeln ('y = ', f(x));
end.