составьте программу, которая выводит все делители натурального числа N (в паскале)

var n,i:integer;beginwrite('n = ');readln(n);writeln('Делители:');for i:=1 to n div 2 do if n mod i = 0 then write(i,' ');writeln(n);end.Пример:n = 24Делители:1 2 3 4 6 8 12 24