Найти количество и сумму тех членов последовательности, которые делятся на 5, но не делятся на 7

uses
 crt;
var
 i,n,kol:integer;
 a:array[1..50] of integer;
 sum:real;
begin
clrscr;
write('Ââåäèòå ðàçìåðíîñòü: ');
readln(n);
randomize;
sum:=0;
kol:=0;
for i:=1 to n do
begin
a[i]:=random(10)-3;
write(a[i]:3);
if (a[i] mod 5=0) and (a[i] mod 7<>0) then
begin
inc(kol);
sum:=sum+a[i];
end;
end;
writeln;
writeln('Kol:=',kol,'; Sum:=',sum);
readln;
end.

uses
 crt;
var
 i,n:integer;
 a:array[1..50] of real;
begin
clrscr;
write('Ââåäèòå ðàçìåðíîñòü: ');
readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(10)-3;
write(a[i]:4:2,' ');
if a[i]<0 then
begin
a[i]:=a[i]*0.5;
end
else
 a[i]:=a[i]*0.1;
end;
writeln;
for i:=1 to n do
begin
write(a[i]:4:2,' ');
end;
readln;
end.

uses
 crt;
var
 i,n,kol,ind:integer;
 a:array[1..50] of integer;
 pr:real;
begin
clrscr;
write('Ââåäèòå ðàçìåðíîñòü: ');
readln(n);
randomize;
kol:=0;
pr:=1;
ind:=1;
for i:=1 to n do
begin
a[i]:=random(10)-3;
write(a[i]:3);
if a[i]<0 then
begin
inc(kol);
end;
end;
writeln;
for i:=1 to n do
begin
if a[i]>=0 then
begin
pr:=pr*a[i];
end
else
begin
ind:=i;
break;
end;
end;
if (kol<>0) and (ind<>1) then
writeln('Pr:=',pr)
else
 writeln('Îòðèöàòåëüíûõ ýëåìåíòîâ íåò!!! Èëè îí ïåðâûé');
readln;
end.

uses
 crt;
var
 i,n:integer;
 a:array[1..50] of integer;
 sum:real;
begin
clrscr;
write('Ââåäèòå ðàçìåðíîñòü: ');
readln(n);
randomize;
sum:=0;
for i:=1 to n do
begin
a[i]:=random(10)-3;
write(a[i]:3);
if not odd(i) then
begin
sum:=sum+a[i];
end;
end;
writeln;
writeln('Sum:=',sum);
readln;
end.