nhập vào số nguyên N hãy kiểm tra từ 1 đến N có bao nhiêu số lẻ

program sole;

uses crt;

var n,i,d:integer;

begin

clrscr;

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

d:=0;

for i:=1 to n do

  if i mod 2=0 then d:=d+1;

write(‘Tu 1 den ‘,n,’ co ‘,d,’ so le’);

readln

end.