varx, y, s, result: real;beginwriteln('Enter the values of x, y and s:');readln(x, y, s);
result := (abs(x) - abs(y)) / (1 + abs(1 / s));
writeln('The result is: ', result:0:2);end.
var
x, y, s, result: real;
begin
writeln('Enter the values of x, y and s:');
readln(x, y, s);
result := (abs(x) - abs(y)) / (1 + abs(1 / s));
writeln('The result is: ', result:0:2);
end.