lỗi của bạn là câu lệnh không được ở trong ngoặc

program tong_so_le;

uses crt;

var s,i,n: integer;

begin

clrscr;

s:=0;

write('nhap n: '); readln(n);

for i:=1 to n do

if (i mod 2=1) then

s:=s+i;{tinh cac so le tu 1 den n}

writeln('tong cac so le la: ',s);{hien thi ket qua}

readln;

end. //Oken 

Program In_So_Le;

Uses crt;

var S,i,n: integer;

Begin

     Clrscr;

     Write('Nhap so n ='); readln(n);

     S:= 0;

     For i:=1 to n do if i mod 2 =1 then S:= S+i;

     Writeln('Tong cac so le nho hon ',n,' la: ',S);

     readln

end.

 Đó là phần bài của mình.

 Ở phần mình ghi chữ đậm đó với bài của bạn cóa những phần bị ngược. bạn chỉ mắc phần đó thôi.