непонятно, что нужно сделать...
есkи просто записать строку в формате паскаля, то
3 / (1 + abs(x))
Объяснение:
var
x:integer;
y:real;
begin
readln(x);
y:=3/(1+abs(x));
writeln('y=', y);
end.
