Помогите пожалуйста
1) вывести на экран делители числа n
2) найти все числа от 33 до 555, которые кратны 13

1)var n,i:integer; begin     readln(n);     for i:=1 to n do           if n mod i = 0 then write(i,' ');     readln; end.