Восстановите условие задачи по тексту программы: _____
Var f,x: real;
Begin
Writeln ('введите значение х');
Readln (x);
f:=-2*x*x+4*x-1.4
Writeln ('значение функции f равео ',f);
Readln;
End.