[Microsoft]

n mod 2=0 это проверяет четность [/b]

Ну тогда
__if (SomeArray[i] mod 2 = 0) then Summ := Summ + SomeArray[i];

А на чистом паскале никогда не писал, поэтому полностью программу составить не смогу :(