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

Спасибо тебе большое.

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