Viết chương trình tính tống=2+4+6+...+n với n nhập từ bàn phím

Program tinh_tong;

Uses crt;

Var i,S,n: integer;

Begin 

Write ('Nhap n=');

Readln (n);

S:=0;

For i:=1 to n do

If i mod 2= 0 then 

S:=S +i;

Writeln ('Tong can tim la:',S);

Readln

End.

Program HuynhDucNhatDeThuongQuaDiA;
Uses crt;
Var n,i,HuynhDucNhat: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        HuynhDucNhat:=0;
        i:=0;
        While i<=n do
        Begin
                HuynhDucNhat:=HuynhDucNhat+i;
                inc(i,2);
        End;
        Write(HuynhDucNhat);
        Readln
End.

-------------------

Yêu các bạn moahhhh :*

Mèo méo meo mèo meo ~