Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Печать всех делителей натурального числа A. Паскаль (Pascal).
Натуральное число: 1,2,3,4 и так далее.

program Print_Nat;

  {Печать всех делителей натурального числа A}
  {Натуральное число: 1,2,3,4 и так далее}
var
  a, b: integer;
begin
  b := 1;
  WriteLn('Введите натуральное число А: ', a);
  ReadLn(a);
  WriteLn('Делители числа: ', a);
  while (b <= a) do
  begin
    if (a mod b) = 0 then
      Write(b, '  ');
    Inc(b);
  end;
  WriteLn();

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Печать всех делителей натурального числа A в Паскале.