Описать

функцию 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.