Theo ý kiến của mình thì không nhất thiết phải thêm câu đk "If i mod 2 =0 then..." vào vì nó khá dài dòng (Nếu bạn thích thì có thể thêm vào). Và bạn cũng có thể tham khảo bài làm của mình để có thể lựa chọn cách giải nhanh nhất, đỡ mất thời gian khi thi :D
Bài làm
Var n,a,b:integer;
Begin
  Writeln('Nhap so n vao day:'); Readln(n);
  a:=0; b:=0;
  While a<=n do
   Begin
    b:=b+a;
    a:=a+2;
   End;
  Writeln('Vay tong cac so chan tu 1 -> ',n,' la:',b);
 Readln
End.
*Nhớ tick và chọn làm câu trl hay nhất cho mình nhé! Có gì không hiểu, comment bên dưới ! Thanks :D*

*Chương trình đúng:

program tinh_tong;

var N,i: integer;

      S: longint;

Begin

write('Nhap so N: '); readln(N);

S:=0; i:=1;

while i<=N do

begin

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

i:=i+1;

end;

writeln(S);

readln;

End.