Добрый день!Помогите решить задачку. Составить программу: - Pascal

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

Добрый день!Помогите решить задачку. Составить программу:

Решение задачи: «Добрый день!Помогите решить задачку. Составить программу:»

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

uses crt;
var a,k,i:integer;
b,s:real;
begin
i:=0;s:=0;
for k:=2 to 10 do begin
inc(i);
b:=sin(k)+cos(k);
s:=s+b;
write(' [',b,' ]');
end;
writeln;
writeln('Seredne arifmetu4ne=',s/i);
end.

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

Объявлены переменные: a, k, i, b, s (строки 2–5)
Начальные значения переменных: i := 0; s := 0 (строка 6)
Задаётся диапазон для цикла for (строка 7)
Выполняется цикл for для значений k от 2 до 10 (строка 8)
Увеличивается значение i на 1 (строка 9)
Вычисляется значение b как сумма синуса и косинуса k (строка 10)
Значение b добавляется к s (строка 11)
Выводится значение b в формате [b] (строка 12)
После завершения цикла выводится итоговое значение s/i (строка 13)
Конец программы (строка 14)