Составьте программу находящую сумму четных чисел от 1 до 10. Чему она равна?

Var i,s:integer; begin s:=0; for i:=1 to 10 do  if i mod 2 = 0 then s:=s+i; writeln('s=',s); end. Результат: s=30