Описать
функцию 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.