создать программу которая Выводит на экран все делители числа m

var s,d,m,i:integer;beginwrite('Введите число m');Readln(m);for i:=2 to m doif m mod i = 0 then writeln(i);end.