Вывести на экран числа от -5 до 5 в прямом и обратном порядке , pascal abc)

var i,n : integer;

begin

  read(n);

  for i: = 1 to n do

      if n mod i = 0 then

          writeln(i);

end.

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.