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

Видимо, "наибольший целый делитель натурального числа, меньший самого числа", иначе просто выводится число (х не равно 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.