var
  x,y: real;
  n:byte;
begin
  writeln('ввести x');
  readln(x);
  if x<=-05 then
  begin
    y:=cos(sqrt(exp(yln(1/5)(abs(x+ln(abs(x)))))));  // <<<--- Ожидалось имя процедуры или функции
    n:=1
  end
  else if(x>-0,5)and(x<=0,5)then
  begin
    y:=cos(exp(abs(x+ln(abs(x)))));
    n:=2
  end
  else
  begin
    y:=exp((yln(1/3)))(exp(x))(sqrt(x+1))-pi;
    n:=3
  end;
  writeln('x=',x:6:2,'y=',y:6:2,'n=',n:3);
end.