Напечатать таблицу значений функции - Free Pascal

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

Напечатать таблицу значений функции f(x)=10^x для x [a,b] с шагом h=(b-a)/n, если a=1, b=1.5, n=10

Решение задачи: «Напечатать таблицу значений функции»

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

var x, h: real;
    i: integer;
begin
  h := 0.05;
  for i := 0 to 10 do
    begin
      x := 1 + i * h;
      writeln('10^(', x:4:2, ') = ', exp(x * ln(10)):0:15)
    end;
  readln
end.

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

В первой строке объявляются переменные x, h и i типа real и integer соответственно.
Переменная h инициализируется значением 0.05.
В цикле for переменной i от 0 до 10 присваиваются значения от 0 до 10.
Внутри цикла выполняется присвоение переменной x значения 1 + i * h.
С помощью функции writeln выводится значение переменной x в формате '10^(10^X) = 10^X' где X - текущее значение переменной x.
С помощью функции readln считывается значение с консоли.