var x,y:real;
BEGIN
readln(x);
if (x<=0) then
y:=-2*sqr(x)+x+1 else
y:=-2*sqr(x)+3;
writeln(y);
end.
Петя Герасимов, Миша Иванов, Володя Семёнов
3. 5
4. первой двери без ключа
5. ключ не подойдет к замку
6. замок
8. ключ подошел
9. оставь в замке
10. следующий ключ
11. связку ключей к началу (?)