составить програму для вычисления У=корень(х-5)деленный на (х-3)!ПОМОГИТЕ!плиз!

program zadacha(input,output);
uses wincrt;
var x,y: real; {если что сама поменяешь}
begin
writeln ('введите значение х');
readln (x);
while x<5 do
begin
writeln ('x должен быть =>5');
readln (x);
end;
y:=(sqrt(x-5))/(x-3);
writeln (y:8:6);
end.