Помогите составить программу

Y=
a+5, если a<=0,
1/a, если 0
[tex] a^{2} [/tex] в остальных случаях

var a,y:real; beginreadln(a);if (a<=0)then y:=a+5 elseif (a>0) and (a<1)then y:=1/a else y:=sqr(a);print(y);end.