1)
Program task1;
var
i, j, sum: integer;
begin
for i:=100 to 125 do
begin
sum:=1+i;
for j:=2 to i div 2 do
begin
if i mod j = 0 then sum:=sum+j;
if sum>216 then break;
end;
if sum = 216 then writeln(i);
end;
end.
2)
Program task2;
var
i, j, k: integer;
begin
for i:=110 to 120 do
begin
k:=2;
for j:=2 to i div 2 do
begin
if i mod j = 0 then inc(k);
if k=8 then break;
end;
if k < 8 then writeln(i, ', k = ', k);
end;
end.
ответ: в блим ленде правильно
В8.