Блок-схема.Нужно составить программу.

Question

Блок-схема.Нужно составить программу.

---

Answer 1

Var
  x, y: real;

begin
  write('x=');
  readln(x);
  if x <= -10<br>    then y := x + 50
  else
  if (x > -10) and (x <= 0)<br>    then y := 2 * abs(x)
  else y := 3 * sqr(x) + 1;
  writeln('y=', y);
end.

---