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

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.

Comments

Вопрос можно? Case что это

---

Выборка, через if, как я понимаю, слишком просто, чтобы приняли, посему решил задачу с помощью case of, нижние границы Int32 известны с первого урока, насколько я знаю