с информатикой
Надо вычислить значение этой функции.

beginvar f :real->real := x-> x<1 ? x*(x+2)/(x-2)**5 : x**2 + 4*x;var x := ReadReal('x: '); Print('y =', f(x));end.

или:

var x,y:real; beginread(x); if x<1 then y := x*(x+2)/power((x-2),5) else y := sqr(x) + 4*x; write(y);end.

Пример работы: