{Не до конца понимаю что значит в данном контексте произвольного, так что выложу оба возможных варианта}
1)//С вводом.
var x,y:real;
begin;
readln(x);
if x=4.5 then
begin;
writeln('Нельзя делить на ноль');
exit;
end;
y:=(5*x-16*sqr(x))/(4*x-18);
writeln(y);
end.
2)//C случайным числом
var x,y:real;
begin;
randomize;
x:=random(100);
writeln('X=',x);
if x=4.5 then
begin;
writeln('Нельзя делить на ноль');
exit;
end;
y:=(5*x-16*sqr(x))/(4*x-18);
writeln(y);
end.