Помогите пожалуйста !!!срочноооо надо !!Упражнение номер один : составьте программу для вычисления значения функции y:

var x,y:real;

begin

writeln('Введите x');

readln(x);

if((x=2) or (x=-2)) then writeln('y = ', ((4*x-2)/3)-((6*x+2)/5)) else writeln('y = ', (((5*x)/x-2))+((3*x)/x+2));

end.