математическое уравнение (х2-7х):12 можно записать на язык паскаля:заранее спасибо

var
x: real;

function f (p:real):real;
begin
f:=(sqr (p) - 7*p)/12
end;

begin
write ('Введите x: ');
readln (x);
write ( f(x) );
end.