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

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

Да запутался с ветками условияИсправлено//Pascalvar 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.