задачі. цикл з параметрами

Задача. Обчислити та вивести на екран номери і значення перших n=10 елементів. a := 3 + cos(2*i)

Це можна зробити за допомогою наступної програми:

program Elements;

var i,n: integer; a : real;

begin

n := 10;

for і := 1 to n do begin

a := 3 + cos(2*i); writeln(i:4, a:15:2)

end

end.

3.           Пошук потрібних елементів. Задача пошуку потрібних елементів з-поміж усіх елементів послідовності розв'язують методом перегляду і аналізу всіх елементів. Для відбору потрібних елементів використо­вують деяку умову (логічний вираз). Усе це роблять за допомогою команди if, яка знаходиться в тілі команди циклу.

З а д а ч а 3. Нехай елементи числової послідовності описуються формулою a=2-2cos3i, і = 1,2,...,12. Вивести на екран номери і значення лише додатних елементів.

program Find;

var i,n: integer; a : real;

begin

n := 12;

for і := 1 to n do begin

a := 2 - 2*cos(3*i);

if a > 0 then writeln(i:4, a:15:2)
end
                    end.

Завдання. Виведіть на екран елементи, які більші, ніж 1 і менші, ніж 2.