Выражение с П - Pascal

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

Подскажите как решать подобные уравнения, нужно сделать 3 подобных, думаю разобраться в одном остальные сам сделаю.

Выражение	x₁	h	Значение y

Решение задачи: «Выражение с П»

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

program z22;
var x,p:real;
     i : byte;
begin
 x := -pi;
 p := 1;
 for i := 1 to 11 do
 begin
  p := p * sqr(1 + ln(abs(x)));
  x := x + pi/20;
 end;
 Writeln(p:0:2);
 Readln;
end.

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

Объявляется переменная x с типом данных real и переменная p с типом данных real.
Объявляется переменная i с типом данных byte.
Присваивается значение -pi переменной x.
Присваивается значение 1 переменной p.
Запускается цикл for, который будет выполняться 11 раз.
Внутри цикла вычисляется новое значение p, умножая текущее значение p на квадрат натурального логарифма от абсолютного значения переменной x плюс 1.
Значению переменной x присваивается новое значение, увеличенное на pi/20.
Выводится значение переменной p с точностью до двух десятичных знаков.
Программа ожидает ввода пользователем перед завершением.