Написать программу вычисления значений функции: y=2x/(x+1) для всех х из интервала [-2; 2] с шагом равным 1 со схемкой и самой программой.

Программа:
var x,y,h:real; 
begin
x:=-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

Блок-схема - в прилагаемом файле