//Задача 2.28 Кучеренко

Begin
  var y, x, a: real;
      
  write('Vveldite a: ');
  readln(a);
  
  var i: integer;
  for i := 1 to 10 do
  begin
    write('x[', i, '] = ');
    readln(x);
    
    if x = a then
      y := a * exp(x * (-1)) + 2.5
    else
      y := exp(a - 1) + a * sqrt(x * x * x);
    
    writeln('Y = ', y);
  end;
end.