Напишите программу для вычисления функции у=3х-х^2/ корень х-1. 8 класс. заранее .

Var x,y:real;
begin
writeln('введите x');readln(x);
y:=(3*x-sqr(x))/sqrt(x-1);
writeln;
writeln('y=',y:5:2);
end.