viết chương trình nhập số nguyên dương N tính tổng các giá trị là số lẻ trong phạm vi từ 1 đến N sau đó in ra màn hình ai nhanh cho 5 sao ko copy mạn

program tong_sole;

uses crt;

var n,i,t:integer;

begin

       clrscr;

       write(‘Nhap n: ‘);  readln(n);

       t:=0;

       for i:=1 to n do

              if i mod 2=1 then t:=t+i;

       write(‘Tong cac so le tu 1 den ‘,n,’ la: ‘,t);

       readln;

end.