Протабулировать функцию на заданном интервале - Free Pascal (836)

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

x от 1 до 5 с шагом 1 Оператор цикла: while...do (Паскаль не знаю, поэтому можно самым простым и понятным способом)

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

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

var x: integer;
begin
  x := 1;
  while x <= 5 do
    begin
      writeln('y(', x, ') = ', (x + 1 / sqrt(x)) * (x * x - 3 * x - 8):14:10);
      inc(x)
    end;
  readln
end.

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

Объявлена переменная x типа integer со значением 1.
Задано условие цикла while, которое выполняется до тех пор, пока значение переменной x не станет больше 5.
Внутри цикла while выполняется блок begin, который содержит две операции: a. Вывод на экран значения функции y(x) с помощью функции writeln. Значение функции вычисляется по формуле (x + 1 / sqrt(x)) (x x - 3 * x - 8). Форматирование вывода чисел с использованием 14 знаков после запятой и 10 знаков после запятой соответственно. b. Увеличение значения переменной x на единицу с помощью функции inc.
После выполнения цикла while программа ожидает ввода данных с помощью функции readln.