Помогите, пожалуйста,программа на паскале!очень срочно! Необходим график функции

Program proba;

var x, y:real;

begin

 write('x=');

 readln(x);

 y:=(x*x+2*x+1)/(x*x+2*x);

 write('y=');

 writeln(y);

end.