var 
x:real;
begin
writeln ('Ââåäèòå x');
readln (x);
if x>0 then writeln ('y=',3*x*x+5) else writeln ('y=',-2*x+1)
end.