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