2.28

//Задача 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.