Написать функцию 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.