ПОЖАЛУЙСТА. СРОЧНО. СЛОЖНО. На языке Паскаль, вроде, написать надо

Var x,y: real;
begin
y:=0;
readln(x);
if x>5 then
y:= (sqr(1/(x-5))+ 4)
else y:=(sqr(x)*x)-4*x;
writeln(y);
end.

Да запутался с ветками условия
Исправлено
//Pascal
var x,y:real;
begin
  readln(x);
      if x >5 then y:=sqr(1/(x-5))+4 else y:=x*x*x-4*x;
   writeln(y);
 
end.