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



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

в этой задаче просят найти сумму всех делителей числа 121. а сумма всех делителей числа 121 равна 133

хорошо спасибо большое

вся суть в том, что 121=11*11. всего 3 делителя:)было бы там число например 144, то получили бы 403)

не смущайтесь по поводу этого)

пожалуйста:)