var x,a:real;
begin 
write ('a='); readln (a);
x:=-1;
while x<=1 do begin
if x<=1 then begin writeln ('x=',x,' ','y=',x+1); x:=x+0.1; end;
if x<0 then  begin writeln ('x=',x,' ','y=',3-a*x*x); x:=x+0.1; end;
end;
end.