Вычислить функцию - Free Pascal

Формулировка задачи:

Написать пpогpамму для вычисления функции Z = ax + bx , если ax + by пpинадлежит [c,d], x+y, если ax + by <c, 1 – x – y, если ax + by > d Все паpаметpы вводятся с клавиатуpы. Помогите решить, буду очень благодарен)

Решение задачи: «Вычислить функцию»

Листинг программы

Function Z(a,x,y,b,c,d:Double):Double; var r:Double;
begin
 r:=a*x+b*y;
 if (r>=c) and (r<=d) then Result:=a*x+b*x else
  if (r<c)  then Result:=x+y else
   if (r>d) then Result:=1-x-y;
end;

Объяснение кода листинга программы

Задана функция Z(a,x,y,b,c,d:Double):Double
В функции объявлены следующие переменные: a, x, y, b, c, d: Double r: Double
Код функции: begin r := ax + by; if (r >= c) and (r <= d) then begin Result := ax + by; end else begin if (r < c) then begin Result := x + y; end else begin if (r > d) then begin Result := 1 - x - y; end end end end