var
a,b,k,s,m,d:integer;
begin
k:=0;
s:=0;
d:=0;
m:=0;
For b:=1 to 220 do
for a:=(b+1) to 300 do
begin
repeat
k:=k+1;
if a mod k = 0 then
s:=s+k;
until k <> a div 2;
if b=s then
repeat
d:=d+1;
if b mod d = 0 then
m:=m+d;
until d <> b div 2;
if b=s then
if a=m then
writeln(a,' ',b)
end;
end.

но компьютер не перебирает все числа, он останавливается, типа сил у него не хватает. Пожалуйста, подскажите в чем у меня ошибка или как по другому решить задачу. Заранее спасибо.