РЕШИТЕ ПОЖАЛУЙСТА 2 И 4 ЗАДАЧИ

№2.

program 2;

var a, b, c, s: integer;

begin

b:=0;

c:=0;

repeat

read(a);

if (a<100) and (a mod 3 = 0) then

   begin

   b:=b+a;

   c:=c+1;

   end;

until a=0;

s:=b/c;

write(s);

end.

№4.

program 4;

var a, s, c, b: integer;

begin

s:=0;

c:=0;

read(a);

for i:=1 to a do

if (a mod i) = 0 then

   begin

   s:=s+i;

   c:=c+1;

   end;

b:=s/c;

write(b);

end.