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

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