Срочно!! Паскаль! Напишите программу по нахождению всех делителей данного натурального числа

var n, i: integer;beginreadln(n);i:=n;writeln('Делители числа ',n,':');while i>0 do beginif (n mod i) = 0 thenwrite(i, ' ');i:=i-1;end;read;end.