Question

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

Answer 1

Var a,y:real; 

begin

readln(a);

if (a<=0)then y:=a+5 else

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

print(y);

end.