Написать функцию y=x^2/(x-1) в Pascal.

program f; var x, y: real; begin write('x='); readln(x); y := (x * x) / (x - 1); writeln('y=', y); end.