** языке паскаль написать программу вычисления значений функции. y=( 3+x )/( 3-x );

Question

На языке паскаль написать программу вычисления значений функции.
y=( 3+x )/( 3-x );

Answer 1

Var 
x: integer; 
y: real;
begin
write('x = ');
readln(x);
if x = 3 then writeln('Ошибка: деление на ноль!')
else
begin
y:=(3+x)/(3-x);
writeln('y = (3+x)/(3-x) = ', y:3:2);
end;
readln;
end.