Question

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

Answer 1

var
  x, y: real;

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