program sample;

var 
num, i, num_del:integer;

begin
 writeln('Введите число: ');
 read(num);
 num_del := 0;
 writeln('Делители: ');
 for i := 1 to num do
 begin
   if num mod i = 0 then
   begin
     write(i, ', ');
     num_del := num_del + 1;
   end;
 end;
 writeln;
 writeln('Количество делителей: ', num_del);
end.