Уравнение (х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.