задача с использованием подпрограммы функции в Паскале

[Альбина_]

Помогите пожалуйста решить задачу:
Составьте программу вывода на экран наибольшего делителя натурального числа N, меньшего заданного натурального M.

[Serge_Bliznykov]

function GetMaxDividerNLessM(N, M : integer) : integer;
var i : integer;
begin
  if (M<2) or (N<1) then begin GetMaxDividerNLessM := 0; exit end;

  if N<M then 
     GetMaxDividerNLessM := N
  else begin
    i := M-1; {делитель должен быть МЕНЬШЕ заданного числа M}
    if i>(N div 2) then i := (N div 2);
    while (N mod i)<>0 do dec(i);
    GetMaxDividerNLessM := i
  end;
end;

писал код прямо в браузере, не проверял...