Ou encore, mais avec boucles imbriquées :

For i:=1 to n do
begin
if i mod 2 = 0 then
begin
................
................
...