var x:real; begin write ('x='); readln (x); if x>1 then writeln ('x=',x,' ','y=',x*x+x+3) else writeln ('x=',x,' ','y=',x+1); end.