Sử dụng câu lệnh for…do để tính tổng các số tự nhiên lẻ từ 3 đến 100

var s: word;

       i: byte;

Begin

    S:=0;

    For i:=3 to 100 do if (i mod 2 = 1) 

         Then s:=s + i;

    Write(s);

    Readln

End.