Составьте программу вычисления функции: у=

var
  x: real; //Пусть будут (почти) любые числа

begin
  readln(x); // вводим
  writeln(-2 * sqr(x) + (x <= 0 ? x + 1 : 3)); //Тернары - добро, ибо код меньше:
                                                           //(условие ? вывод при истине : вывод иначе)
end.