Составить на алгометрическом языке программу для сложения всех чётных чисел от 0 до 200. ( т.е. идёт алгорим должен выглядеть так: алг нач .......( помогите дальше дописать)

program task;const n=200;var a:array[0..n] of integer;     i,s: integer;  beginfor i:=0 to n do  begin   if(a[i] mod 2=0) then s:=s+1; write('кол-во числе равно', s); end; end. начало - ввод данных ( в данном коде нету этого, так как все описано сразу же) - проверка условия, если истенно то увеличиваем счетчик, если нет, то ничего не делаем - вывод счетчика.