Автор - KostikovBUKALOV
var f,y: real;
begin
readln(y);
if y>2 then f:=2
else if (y>0) and (y<=2) then f:=0
else f:=(-3)*y;
write('f(y)=',f);
end.
var
y, f: real;
begin
read(y);
if y > 2 then
f := 3
else
if y > 0 then
f := 0
else
f := 3 * y;
write(f);
end.