Складіть програму, яка моделює діалог агента туристичної фірми з користувачем. "Агент" розпитує користувача про його наміри, фінансові обмеження тощо і пропонує відповідний варіант відпочинку Паскаль​

В начале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998

//PascalABC.NET

var
  A: array [1..15] of integer;
  i, sum, n: integer;
begin
  for i := 1 to 15 do
  begin
    A[i] := random(1001)-500;
    write(A[i], ' ');
  end;
  writeln;
 
  for i := 2 to 14 do
    if ((A[i] > A[i - 1]) and (A[i] > A[i + 1])) then
    begin
   
   sum := 0;
  n := A[i]; 
  while ( n<>0 ) do
  begin
    sum := sum + (n mod 10);
    n := n div 10;
    if n in [-9 .. -1] then
    begin
      if sum - abs(n) < 0 then
        sum := abs(sum) - abs(n)
      else
        sum := sum - abs(n);
      break;
    end;
  end;   
   writeln('Сумма цифр числа ', A[i], ' = ', sum);
  end;
end.