Напишите программу в паскале

Question

Напишите программу в паскале

---

Answer 1

Var y,x : real;
begin
read(x);
if y<=3 then<br>y:=sqrt(x+2);
if x>-3 then
y:=abs(x);
end.