Viết chương trình thực hiện tính tổng dãy số S= 11+13+15+…+101 ( sử dụng lệnh lặp với số lần chưa biết trước)

program tinh_tong;

uses crt;

var i,S:integer;

begin

       clrscr;

       i:=11;  S:=0;

       while i<=101 do

              begin

                     S:=S+i;

                     i:=i+1;

              end;

       write(‘S= ‘,s);

       readln;

end.