Ответ учителя:
program pr;
var x,z,e:integer;
begin
readln(z,x,e);
if x<=(-z) then
begin
writeln('y=',cos(x*ln(abs(x))+power(e, x-1))+sin(z*z));
end
else if (x(-z)) then
begin
writeln('y=',cos(2*x*z)+sin(z*z));
end
else
begin
writeln('y=',cos( sqr(cos(x))+x*x/5 )+sin(z*z));
end;
end.