Добавить в программу функцию или процедуру - Pascal

Формулировка задачи:

Добавьте сюда функцию или процедуру

uses crt;
var n,i:integer;
b: array [ 1 .. 100 ] of real;
begin
 writeln( 'введите n=' );
 readln(n);
 b[1]:=9;; 
 writeln(b[ 1 ]: 5 : 5 ); 
 for i:= 2 to n do 
  begin b[i]:=0.1*b[i- 1 ]+10;
   writeln(b[i]: 5 : 5 );
  end; 
end.

uses crt;
procedure q(i,n:integer);
begin
 var b: array [ 1 .. 100 ] of real;
  for i:= 2 to n do 
   begin
    b[i]:=0.1*b[i- 1 ]+10;
    writeln(b[i]: 5 : 5 );
   end;
end;
begin
 var n,i:integer; 
 var b: array [ 1 .. 100 ] of real;
  writeln( 'введите n=' );
  readln(n);
  b[1]:=9; 
  writeln(b[ 1 ]: 5 : 5 );
  q(i,n);
end.

выдает не совсем верные ответы: не показывает 9 десятых, сотых, тысячных и т.д

Решение задачи: «Добавить в программу функцию или процедуру»

Листинг программы

uses crt;
var n,i:integer;
b: array [ 1 .. 100 ] of real;
function f_x(a:real):real;
  begin
    f_x:=0.1*a+10
  end;
begin
 write( 'введите n=' );
 readln(n);
 b[1]:=9;
 writeln(b[ 1 ]: 5 : 5 );
 for i:= 2 to n do
  begin b[i]:=f_x(b[i-1]);
   writeln(b[i]: 5 : 5 );
  end; 
end.

Объяснение кода листинга программы

В начале кода используется директива uses crt;, которая позволяет использовать функции и структуры из встроенной библиотеки CRT (Console Read/Write).
Переменные n и i объявлены как целочисленные.
Массив b объявлен для хранения чисел с плавающей точкой и имеет максимальное значение 100.
Функция f_x объявлена для выполнения операции умножения числа на 0.1 и добавления 10 к результату.
В блоке begin выполняется чтение значения переменной n с помощью функции readln().
Значение b[1] устанавливается равным 9.
Выводится значение b[1] с шагом 5.
Запускается цикл for, который выполняется от 2 до n.
Внутри цикла вызывается функция f_x для каждого элемента массива b и результат присваивается соответствующему элементу массива.
Выводится значение каждого элемента массива с шагом 5.
Цикл for завершается.
Конец программы.