посчитайте ЗАДАЧИ Pascal​

1)

Var x,s, i:integer;

begin

Readln (x) ;

S:=1;

For i :=2 to (x div 2) do begin

If x mod i=0 then

S:=s+i;

End;

WriteLn (s+x);

End.

2)

Var x,s,i:integer;

begin

Readln (x) ;

S:=0;

For i :=1 to x do begin

If (x mod i=0) and (I mod 2=0) then

S:=s+i;

End;

WriteLn (s);

End.