Восстанови условие задачи по тексту программы.

var f, x: real;
BEGIN
writeln (' введите значение x') ;
readln (x);
f:=-2*x*x+4*x-1 . 4;
writeln (' значение функции f равно ', f) ;
readln;
END.