Сначала определяете начальные значения суммы и счётчика количества равными нулю. Затем пробегая массив поэлементно при выполнении условия a[i] mod 2=0 увеличиваете сумму inc(s,a[i]) и счётчик inc(c).

Выводите все числа в цикле for i := 50 to 499 do writeln(i shl 1);

Альтернативный вариант i := 100; while i<1000 do begin writeln(i);Inc(i,2);end;