tính tổng s=1+3+5+7+....+n với n nhập từ bàn phím

Program Hotboy ;

Uses crt;

Var s,i,n : longint;

Begin

Clrscr ;

S:=0;

Write('nhap so n tu ban phim ');

Readln(n);

For i:=1 to n do

If (i mod 2<>0) then S:=S+i;

Writeln('tong can tim la',S);

Readln

End.

program oken;
uses crt;
var n,i,s:longint;
begin
        clrscr;
        write('nhap n: '); readln(n);
        for i:=1 to n do
                if i mod 2 = 1 then
                        s:=s+i;
        writeln('Tong cac so le tu 1 den ',n,': ',s);
        readln;
end.