!!!ПОМОГИТЕ РЕШИТЬ!!!

2.const k=2;      m=3;var x,f:real;begin readln(x);  if (x>=k+m) or ((x>=k) and (x<=m)) then    f:=(k+m)/x; if (x<k) or ((x>m) and (x<m+k)) then     f:=(3.5*exp(ln(10)*-3)*x)/(k+m);  writeln(f:4:2);end.