написать программу нахождения делителей числа, введенного с клавиатуры

var
  a, i: integer;

Begin
  readln(a);
  for i := 1 to a do
    if (a mod i = 0) then
      write(i, ' ');
End.