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 ~