viết chương trình nhập vào các số lẻ <100 và tính tổng các số đó

program tong_so_le;

uses crt;

var i,s:integer;

begin

 clrscr;

   s:=0;

     for i:=1 to 100  do

          if 100 mod i=1 then s:=s+i;

 writeln(‘tong so le <100 la’,s);

readln;

end.