Pascal-liczby parzyste

[swistak2341]

Witam serdecznie!

Muszę napisać w Pascalu dwie procedury:
1) procedurę obliczającą liczby parzyste <= n;
2) procedurę wypisującą wszystkie dzielniki.

Nie mam zielonego pojęcia jak się zabrać do tego. Będę bardzo wdzięczny za pomoc.-- 16 lis 2009, o 12:44 --Napisałem właśnie procedurę wypisującą wszystkie liczby parzyste <= n, ale nie wiem czy jest poprawna.

Procedure lparzyste (var n:integer);
var i :integer;

begin
read (n);
for i:=1 to n do
if (i mod 2 = 0) then writeln (i);
read (n);
end.

[matshadow]

wygląda ok. No to dzielniki to samo, tylko if (n mod i = 0)