Пожалуйста, помогите с задачей(Университет,1 курс)

[Jake_bat]

В паскале я не ахти, так что прошу у вас помощи, уважаемые АСЫ и другие МЕГА крутые программисы.
В общем тема такая, мне нужен сам код програмный Турбо паскаль, я 3 задания выполнил, а это не могу, помогите =3:

Заранее спасибо

[Stilet]

function f(x:double):Double;
begin
 if (x>=-10)and(x<=1) then f:=x*2 else
  if (x>1)and(x<=5) then f:=sqrt(x)-2 else
   if (x>5)and(x<15) then f:=x-5 else
    f:=666;
end;
begin write(f(0.25)); readln; end.

годится?