Viết chương trình tính tổng các số lẻ từ 1 đến n với n được nhập từ bàn phím. sử dụng câu lệnh while ..... do

Program BTH;
uses crt;
var i,n,s:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        i:=1;
        While i<>n do
        Begin
                If i mod 2=1 then s:=s+i;
                i:=i+1;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.

Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0; i:=1;
        While i<=n do
        Begin
                s:=s+i;
                inc(i);
        End;
        Write('S = ',s);
        Readln
End.