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

Question

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

Answer 1

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.