Ответ:

var i,s:integer;

begin

s:=0;

for i:=20 to 40 do

if i mod 2=0 then s:=s+i;

write(s)

end.

На языке PascalAВC.NET в одну строчку:

## Range(20,40,2).Sum.Print // результат 330