Напишите программу вычисления значения функции y= √(x-2)/((x-3)(x-5)) для любого x, введенного с клавиатуры

Program chisla;

var y,x,a,b,c,d,e: real;

begin

ReadLn(x);

a:=x-3;

b:=x-5;

c:=a*b;

d:=x-2;

e:=sqrt(d);

y:=e/c;

WriteLn (y);

end.