program FunctionCalculation; var x, y: real; begin write('Enter the value of x: '); readln(x);
if x = 3 then begin writeln('Function is undefined for x = 3.'); end else begin y := (3 + x) / (3 - x); writeln('The value of the function for x = ', x, ' is: ', y); end; end.
program FunctionCalculation;
var
x, y: real;
begin
write('Enter the value of x: ');
readln(x);
if x = 3 then
begin
writeln('Function is undefined for x = 3.');
end
else
begin
y := (3 + x) / (3 - x);
writeln('The value of the function for x = ', x, ' is: ', y);
end;
end.