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

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

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

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.