Делители числа

AvariItigail

23 апреля 2016

Выведите все натуральные делители числа x в порядке возрастания (включая 1 и само число).

Входные данные
Вводится натуральное число x

Выходные данные
Выведите все делители числа x

Исходный код на языке Pascal

var
  a, i: integer;

begin
  read(a);
  for i := 1 to a do
    if a mod i = 0 then
      write(i, ' ');
end.