Программа вычисления функции при заданных значениях - Pascal ABC

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

Помогите составить программу вычисления функции при заданных значениях аргументов. Или хотя бы каким алгоритмом руководствоваться при написание?

Решение задачи: «Программа вычисления функции при заданных значениях»

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

var k,n:byte;
    x,p1,p2:real;
begin
x:=-0.5;
while x<=4.5 do
 begin
  p1:=1;
  for k:=0 to 8 do
   begin
    p2:=1;
    for n:=1 to 5 do
    p2:=p2*(k+sin(x)/n);
    p1:=p1*p2;
   end;
  writeln('x=',x:5:1,' y=',p1);
  x:=x+1;
 end;
end.

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

Объявляются переменные k, n, x, p1, p2 типа byte, real соответственно.
Значение переменной x устанавливается равным -0.5.
Задается диапазон значений переменной x от -0.5 до 4.5.
В цикле while выполняется итерация по значениям переменной x в указанном диапазоне.
Внутри цикла while объявляются переменные p1, p2 типа real.
Значение переменной p1 устанавливается равным 1.
Значение переменной p2 устанавливается равным 1.
Задается диапазон значений переменной n от 1 до 5.
Запускается вложенный цикл for для переменной k от 0 до 8.
Внутри вложенного цикла for значение переменной p2 устанавливается равным 1.
Запускается еще один вложенный цикл for для переменной n от 1 до 5.
Внутри этого цикла значение переменной p2 устанавливается равным произведению p2 и (k+sin(x)/n).
Значение переменной p1 устанавливается равным произведению p1 и p2.
Вложенные циклы завершаются.
Значение переменной p2 устанавливается равным 1.
Значение переменной p1 устанавливается равным 1.
Выводится на экран значение переменной x, равное -0.5, и значение переменной p1, равное 1.
Значение переменной x увеличивается на единицу.
Цикл while завершается.
Программа завершается.