Program n_63;
var n, del:integer; begin writeln ('Введите целое число');
readln (n);
for del:=i to n dive 2 do;
if n mod del=0 then writeln (del)
end.
встречено '2' а ожидалось ';' что это значит?

Предыдущий
вопрос Следующий
вопрос

Ошибка в программе заключается в том, что в цикле for вместо "dive" должно быть "div", и вместо "i" должно быть "1". Также пропущена фигурная скобка после вывода значения del. Вот исправленный вариант программы:

Program n_63;
var
n, del: integer;
begin
writeln ('Введите целое число');
readln (n);
for del := 1 to n div 2 do
begin
if n mod del = 0 then
writeln (del);
end;
end.