function equation(x, a, b: real): real;
begin
equation := 4*x + a/b;
end;