12345678910111213141516171819202122Program task7; Var i : integer; procedure PrintAllDividers(n : integer; p : integer); Begin if (p <= (n div 2)) then Begin if (n mod p) = 0 then Begin write(p); write(' '); end; PrintAllDividers(n,p+1); end;End; Begin write('i='); readln(i); PrintAllDividers(i,1); writeln;End.