Câu 1:
uses crt;
var n,i,sum:longint;
begin
clrscr;
readln(n);
sum:=1;
for i:=2 to n div 2 do
if n mod i=0 then inc(sum,i);
write(sum);
readln;
end.
Câu 2:
uses crt;
var a:array[1..1000]of longint;
n,i,count:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 7=0 then inc(count);
end;
write(count);
readln;
readln;
end.