Question

ПОМОГИТЕ ПОЖАААЛУЙСТА

Answer 1

var a:array [1..10000] of integer; c,b,k,n:integer;
begin
read(n); b:=n; c:=0;
for k:=1 to n do begin 
read (a[k]); for k:=1 to a[k]-1 do begin
if a[k] mod k=0 then c:=c+k;
if c=a[k] then b:=b-1;
end;
end; write(b);
end.