логическая память, связывание адресов кратко

Сокращением дроби называется замена ее другой, равной ей дробью с меньшими членами, путем деления числителя и знаменателя на их общий делитель. Сокращать дроби можно последовательным сокращением на общие делители числителя и знаменателя. Задание. Сократить дробь   Решение. Как видим, числитель и знаменатель заданной дроби являются четными числами, а поэтому и можно сократить на их общий делитель - 2: Аналогично, общим делителем полученных числителя 24 и знаменателя 44 есть число 4, а поэтому производим дальнейшее сокращение на 4: Полученные числа - 6 и 11 - уже являются взаимно простыми. Итак, после сокращения окончательно имеем: ответ.   

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.