Написать программу, вычисляющую выражения - Pascal ABC

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

Вычислить:

Решение задачи: «Написать программу, вычисляющую выражения»

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

var i,j:integer;
    s,p:real;
begin
//1 задание
s:=0;
for i:=1 to 10 do
s:=s+3/i/i;
writeln('S=',s);
//2 задание
p:=1;
for i:=2 to 20 do
p:=p*(2*i-1)/(2*i+1);
writeln('P=',p);
//3 задание
s:=0;
for i:=1 to 100 do
 begin
  p:=1;
  for j:=1 to i do
  p:=p*sin(i/j)/cos(i/j);
  s:=s+p;
 end;
writeln('S=',s);
end.

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

Создаются переменные i и j типа integer.
Создается переменная s типа real.
Создается переменная p типа real.
Выполняется задание 1:
- Переменная s инициализируется значением 0.
- С помощью цикла for переменной i от 1 до 10 выполняется вычисление: s = s + 3/i/i.
- Выводится значение переменной s с помощью функции writeln.
Выполняется задание 2:
- Переменная p инициализируется значением 1.
- С помощью цикла for переменной i от 2 до 20 выполняется вычисление: p = p (2i-1)/(2*i+1).
- Выводится значение переменной p с помощью функции writeln.
Выполняется задание 3:
- Переменная s инициализируется значением 0.
- С помощью цикла for переменной i от 1 до 100 выполняется вложенный цикл:
  - Переменная p инициализируется значением 1.
  - С помощью цикла for переменной j от 1 до i выполняется вычисление: p = p * sin(i/j) / cos(i/j).
  - Значение переменной s увеличивается на значение переменной p.
- Выводится значение переменной s с помощью функции writeln.