Составить на алгометрическом языке программу для сложения всех чётных чисел от 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.

начало - ввод данных ( в данном коде нету этого, так как все описано сразу же) - проверка условия, если истенно то увеличиваем счетчик, если нет, то ничего не делаем - вывод счетчика.