Посчитать сумму чётных чисел от 1 до 10​

var sum, i: integer;  

begin

sum:=0;  

for i:=2 to 10 i:=i+2  ;

do  

sum:=sum+i;  

writeln ("сумма равна", sum);

end.

Program n_1;

var i, s:integer;

begin

   s:=0;

   for i:=1 to 10 do if i mod 2 = 0 then s:=s+i;

   writeln(s);

end.