Разработать программу подсчитывающую произведение лежащих в пределах от 1976 до 2045 элементов массива R из 22 чисел.Значения элементов рассчитать по формуле tgC, где C номер элемента массива- Pascal(Паскаль)

uses crt;
const n=22;
var r:array[1..n] of real;
    c:byte;
    p:real;
begin
clrscr;
writeln('Исходный массив:');
p:=1;
for c:=1 to n do
 begin
  r[c]:=sin(c)/cos(c);
  write(r[c]:8:2);
  {if (r[c]>=1976)and(r[c]<=2045) then}
  p:=p*r[c];
 end;
writeln;
write('P=',p:0:3);
readln
end.