Количество выполнений тела цикла во фрагменте программы?
i:=28; k:=4; j:=1; while j < k do begin j:=j+1; k:=i div j; if (i=k*j) and (j<=k) then begin s:=s+j; if j < k then s:=s+k; end; end;