Представить математическую запись

[vitalina-str]

Помогите решить
Представить математическую запись (+описание решения) фрагмента программы
и представить геометрическую интерпритацию
T:=5; x:=t;
readln(z;a);
a:=abs(a+1);
if t>z and t<2+z then x:=1;
if t<2+z+a and t>2*z+a then x:=0;