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

var n,i:integer; begin write('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