Как составить функцию -5<x<0 на языке паскаль, всю программу расписывать не нужно!

Спасибо!

Функция будет принимать значение true, если -5<x<0 и false в противном случае:function dx(x:real):boolean;begindx:=(-5<x)and(x<0);end;