Помогите задание по Delphi 7

Question

Помогите задание по Delphi 7

---

Answer 1

Так же код, файл загрузить не могу.

program Project3;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  i,n:integer;
begin
  readln(n);
  for i:=n downto 1 do
    if n mod i = 0  then
      write(i,' ');
  Readln;
  Readln;
end.

Comments

спасибо!)))