Помогите составить программу Y= a+5, если a<=0, 1/a, если 0 в остальных случаях

Question

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

Y=
a+5, если a<=0,<br> 1/a, если 0
в остальных случаях

Comments

1/a если 0<a<=1

Answer 1

Var a,y:real; 

begin

readln(a);

if (a<=0)then y:=a+5 else<br>
if (a>0) and (a<1)then y:=1/a else y:=sqr(a);<br>
print(y);

end.