Найти наибольший нетривиальный делитель числа - Turbo Pascal

Формулировка задачи:

Дано натуральное число. Найти его наибольший нетривиальный делитель или вывести единицу, если такового нет.

Решение задачи: «Найти наибольший нетривиальный делитель числа»

Листинг программы

program GreatestDiv;
var
 i, n: word;
begin
  readln(n);
  for i := n div 2 downto 1 do begin
    if n mod i = 0 then begin
      writeln(i);
      break
    end
  end
end.

Объяснение кода листинга программы

В данном коде на языке Turbo Pascal происходит поиск наибольшего нетривиального делителя числа. Переменная n представляет собой число, для которого выполняется поиск делителя. Цикл for начинается с числа n деленного на 2 и продолжается до 1. Внутри цикла проверяется условие: если число n делится на текущее значение переменной i без остатка, то это значит, что i является нетривиальным делителем числа n. В этом случае в консоль выводится значение i, а цикл прерывается командой break. Таким образом, в результате выполнения программы будет выведен наибольший нетривиальный делитель числа n.