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

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