найти сумму всех четных натуральных чисел от 2-х до N

Program n1;var sum,i,n: integer;beginreadln(n);sum:=0;for i:=2 to n do if i mod 2=0 then sum:=sum+i;writeln(sum);end.