Уважаемые форумчане, доброго времени суток)
Пожалуйста, помогите написать программу, которая для каждого натурального числа в промежутке от m до n выводит все делители, кроме единицы и самого числа. m и n вводятся с клавиатуры. Питон я изучаю недавно, а Паскаль дольше и знаю его немного лучше.
program delitel;
var
m,n,i: integer;
begin
writeln('Введите m и n');
readln(m,n);
while m <= n do begin
write(m,': ‘);
for i:=2 to m-1 do begin
if m mod i = 0 then write(i,’ ');
end;
writeln;
m := m + 1;
end;
readln;
end.