Вывод элементов последовательности, порядковые номера которых кратны 5

uses crt;
var n,i,k:integer;
    a:real;
begin
clrscr;
write('n=');
readln(n);
writeln('1 задание');
k:=0;
for i:=1 to n do
if i mod 5=0 then
 begin
  k:=1;
  a:=1/sqr(i);
  write(a:0:3,' ');
 end;
writeln;
if k=0 then writeln('Нет номеров, кратных 5');
writeln('4 задание');
k:=0;
for i:=1 to n do
 begin
  a:=3*cos(i)+1;
  if abs(a)<1 then
   begin
    k:=1;
    write(a:0:3,' ');
   end;
 end;
writeln;
if k=0 then writeln('Нет значений по модулю меньше 1');
readln
end.

uses crt;
var n,i,i1,i2,k:integer;
    a:real;
begin
clrscr;
write('n=');
readln(n);
writeln('2 задание');
repeat
writeln('Введите диапазон индексов 0<i1<i2<=',n);
readln(i1,i2);
until(i1>0)and(i2>i1)and(i2<=n);
k:=0;
for i:=i1 to i2 do
 begin
  a:=sin(i)/sqr(i);
  if a<0 then
   begin
    k:=1;
    write(a:0:3,' ');
   end;
 end;
writeln;
if k=0 then writeln('Нет элементов с номерами [',i1,'..',i2,'] <0');
writeln('3 задание');
k:=0;
for i:=1 to n do
 begin
  a:=cos(i)/i/sqr(i)+i;
  if odd(i)and(a>0) then
   begin
    k:=1;
    write(a:0:3,' ');
   end;
 end;
writeln;
if k=0 then writeln('Нет положительных значений с нечетным номерами');
readln
end.