2 задание паскалем писать

Question

2 задание паскалем писать

---

Answer 1

Var x, y: real;
begin
     readln(x);
     if (x < 0) then y := Power(x, 2) + 2
        else if (x <= 4) then y := 2<br>                else y := sqrt(x);
     writeln(y);
end.