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

у=

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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.