чему одинакова переменная s на выходе программки если на входе подали

Чему равна переменная s на выходе программки если на входе подали n=121 в ответе укажите число



var n,s,d:integer;
begin
readln(n);
s:=1; d:=2;
while ngt;=d do
begin
if (n mod d)=0 then s;=s+d;
d:=d+1;
end;
writeln(s);
end.