Написать программу вычисления значений функции:

y=2x/(x+1) для всех х из интервала [-2;2] с шагом равным 1

Пожалуйста со схемкой и самой программой. Спасибо

Программа:var x,y,h:real; beginx:=-2;h:=1;writeln(' x     y');while x<=2 do begin write(x:3); if x+1<>0 then   begin    y:=2*x/(x+1);   writeln(y:7:2)  end   else writeln('  функция не определена'); x:=x+h; end;end.Пример: x     y -2   4.00 -1  функция не определена  0   0.00  1   1.00  2   1.33Блок-схема - в прилагаемом файле