масив

[Shift_sk]

я те могу кинуть первый тур обласной белоруской олимпиады задания)

[Shift_sk]

Var n,k,i:integer;
    a:array[1..254] of byte;
begin
writeln ('Vvedite n');
readln(n);
k:=0;
for i:=1 to n do 
if n mod i=0 then begin k:=k+1; a[k]:=i; end; 
for i:=1 to k do
write(a[i],' ');
end.