нужно составить блок-схему и программу в паскаль. Пожалуйста посчитайте пожалуйста, очень надо))))

//PascalABC.Net 3.2
function f(x:real):=1/(x*sqr(x)-2*x);
begin
write ('y=', f(readreal('Введите x: ')));
end.

Алгоритмический язык:
нач
ввод (x);
вывод (1/x^3-2x);
кон