Tính tổng các số chẵn nhỏ hơn hoặc bằng n

uses crt;
var n,tong,i:integer;
begin
   clrscr;
   tong:=0;
   write('Nhap n: '); readln(n);
   for i:=1 to n do if i mod 2 = 0 then tong:=tong+i;
   writeln('Tong cac so chan nho hon hoac bang ',n,' la: ',tong);
   readln
end.

Program BTH;
uses crt;
var s,i,n:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        For i:=1 to n do
                If i mod 2=0 then s:=s+i;
        write('Tong cac so tren la: ',s);
        readln;
end.