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

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