Найти значений функции у=2/(х+1).составить программу на языке паскаль., !

Program qq;
uses crt;
var x: integer; y: real;
begin
write('Введите число ');
read(x);
y:=2/(x+1);
writeln('ответ, полученный после выполнения операции равен ', y);
end.