Chuyển chương trình sau từ while...do sang for...do

Chuyển chương trình sau từ while...do sang for...do : 
Begin
Clrscr;
Write ('nhap N='); readln (n);
S:=0; i:=0;
While i<=N do begin ifi mod 2<>0 then s:=s+i; i:= i+1 end:
Writeln ('tong cua cac so tu nhien khong chia het cho 2 khong vượt quá so ',n,' cho truoc la:',s);
Readln
end.