program TinhTongSoTuNhienLe;
var
N, i, sum: integer;
begin
write('Nhap so N: ');
readln(N);
sum := 0;
for i := 1 to N do
begin
if i mod 2 = 1 then // Kiểm tra số lẻ
sum := sum + i; // Cộng dồn vào tổng
end;
writeln('Tong cac so tu nhien le nho hon hoac bang N la: ', sum);
readln;
end.