Viết chương trình Pascal tính tổng S = 2 + 4 + 6 + .... + n (được nhập)

Program Tinh_Tong_Chan;
Uses crt;
Var n,i,S: integer;
Begin
clrscr;
Write('Nhap so n: ');
Readln(n);
For i:=1 to n do If i mod 2=0 then S:=S+i;
Write('Tong cac so chan tu 1 den ',n,' la: ',S);
Readln
End.

Chúc bạn học tốt!