program byredra1n;
var a:array[1..1000] of integer;
b,i,n:integer;
begin
b:=0;
writeln('Vvedite razmer massiva');
readln(n);
writeln('Vvodite chisla');
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 2 <>0) and (a[i] mod 3 <> 0 ) and (a[i] mod 5 <> 0) and (a[i] mod 7 <> 0) then
b:=b+a[i];
if (a[i]=2) or (a[i]=3) or (a[i]=5) or (a[i]=7) then b:=b+a[i];
end;
writeln('Otvet:',b);
readln;
end.