Question

Составить программу на Паскале для нахождения выражения, прошу

Answer 1

var
  x: longint;

begin
  write('x = ');
  readln(x);
  write('y = ');
  case x of
    -2147483648..-2:
      writeln(sqr(x) - 2 * x + 1);
    2..2147483647:
      writeln(sqr(x) + 2 * x - 1);
    else
      writeln(sqr(x));
  end;
end.