Відповідь:

program maxdil;

var n, i, max: byte;

begin

writeln ('Введіть натуральне число, програма знайде максимальний дільник');

readln (n);

max := 1;

for i := 2 to n do

begin

if (n mod i = 0) and (i > max) then

max := i;

end;

writeln ('Максимальний дільник дорівнює ', max);

readln;

end.

Пояснення:

Відповідь:program maxdil;

var n, i, max:byte;

begin

writeln ('Введи натуральне число, програма знайде максимальний дільник');

readln (n);

max:=1;

for i:=2 to n-1 do

begin

if (n mod i) = 0 then

begin

max:=i;

end;

end;

writeln ('Максимальний дільник дорівнює ', max);

readln;

end.

У програмі було додано частину, яка перевіряє кожне число в діапазоні від 2 до n-1, і якщо воно є дільником n і більшим за попередній максимальний дільник, то це число стає новим максимальним дільником. Також додано команду readln на кінці програми, щоб відобразити результат відразу після виконання програми.

Пояснення: