Пожалуйста посчитайте на паскале написать формулы, чтобы потом в окне ввода в все и цмфру, а программа потом вычислила

var x,y,n,f:real;beginwriteln('Введите значение x: ');readln(x);y:=abs(sqr(x)*sqr(x)*x)-(7*x)/(sqr(x)*x-15*x);writeln('y= ',y);writeln('Введите значение n: ');readln(n);if n<=0 then writeln('f= ',0)elseif (n>0) and (n<1) then writeln('f= ',n)elseif n>=0 then writeln('f= ',sqr(n)*sqr(n));end.