Описать функцию Del(X), находящую наибольший целый делитель натурального числа Х.

Question

Описать
функцию Del(X), находящую
наибольший целый делитель натурального числа Х.

Answer 1

Видимо, "наибольший целый делитель натурального числа, меньший самого числа", иначе просто выводится число (х не равно 1)

var x, i, max:integer;
function Del(x:integer):integer;
begin
     for i := 1 to x div 2 do
     begin
          if x mod i = 0
          then
              max := i;
     end;
     del := max;
end;
begin
     read(x);
     writeln(Del(x));
end.