Составить блок-схему s=2++n. сумма чётных чисел.

Const N1 = 5;
      N2 = 5;
var a: array [0..N1, 0..N2] of integer;
    b: array [0..N1*N2] of integer;
    i, j, n: integer;
begin
     for i:=0 to N1 do {Заполнение массивы случайными числами}
         for j := 0 to N2 do
            a[i, j] := random(9999);
              for i:=0 to N1 do {Основная часть, проверка и заполнение второго массива} 
        for j := 0 to N2 do
             if (a[i, j] mod 2 = 0) then
             begin
                  b[n] := a[i, j];
                  n := n + 1;
             end;
                  for i:=0 to n do  {Вывод полученных чисел}
         writeln(b[i]);
end.

Процессор Intel Core i5-3570K 3.40ГГц
Кулер для процессора Thermalright True Spirit 140
Мат. плата Socket1155 ASUS P8Z77-V
Модуль памяти 2x8ГБ DDR3 SDRAM Geil Evo Two GET316GB1600C9DC (PC12800, 1600МГц, CL9)
Жесткий диск 2000ГБ Seagate Barracuda Green ST2000DL003
Накопитель SSD 120ГБ 2.5 OCZ "Vertex 3 VTX3-25SAT3-120G
Видеокарта GeForce GTX 670 2048МБ GIGABYTE GV-N670OC-2GD
Корпус Miditower Zalman Z9 Plus
Блок питания 720Вт Cooler Master Silent Pro M2

45000 руб.

P.S. Если вместо GTX670 взять GTX680, то как раз под 50 000 выйдет. Но по моему этоу уже будет лишней тратой денег.