Составить на алгометрическом языке программу для сложения всех чётных чисел от 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) thens:=s+1;write('кол-во числе равно', s); end;end.начало - ввод данных ( в данном коде нету этого, так как все описано сразу же) - проверка условия, если истенно то увеличиваем счетчик, если нет, то ничего не делаем - вывод счетчика.