По теории алгоритмов
надо составить блок схему содержащих циклы с постусловием
1. количество цифр 1 в числе равно 2

1. компьютерная сеть, покрывающая обычно относительно небольшую территорию или небольшую группу зданий (дом, офис, фирму, институт).

2. ПК, Веб-камера , Концентратор, Коммуникатор, Локальный принтер, Сетевой принтер, Сканер , Сервер.

3. В условиях реальных объектов самый правильный подход – сочетать разные среды передачи в зависимости от зон применения, расстояний и требований приложений к пропускной Выбор производится так, чтобы максимально использовать преимущества соответствующих сред и минимизировать влияние их недостатков для каждого конкретного объекта.

Объяснение:

1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.