Var n, i, number:integer; begin readln(n); number := 1; {т.к. само число является своим делителем} for i := 1 to n div 2 do {т.к. делителей больше половины чила ровно} begin {один, который мы уже учли} if n mod i = 0 then number := number + 1; end; writeln(number); end.
begin
readln(n);
number := 1; {т.к. само число является своим делителем}
for i := 1 to n div 2 do {т.к. делителей больше половины чила ровно}
begin {один, который мы уже учли}
if n mod i = 0
then
number := number + 1;
end;
writeln(number);
end.