составить блок-схему:
Найти сумму всех чётных чисел от 1 до 1000

программа на паскале такая:
var s,i:integer;
begin
s:=0;
for i:=2 to 1000 do
if i mod 2=0 then s:=s+i;
write('Сумма равна', s);
readln;
end.