Составить программу вывода на экран наибольшего делителя
натурального числа N, большего 1.
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.

Решение в прикрепленном файле в 3-х циклах, но работать эта программа будет медленнее, если число N - простое.