пожалуйста помогите решить? паскаль. отблагодарю!

uses Math;
var a,b,d:real;
begin
readln(a,b);
d:=(5*max(a,b)-4*min(a,b))/(8.3+max(a,b)/min(a,b));
end;