E hãy cho biết điều kiện và câu lệnh lặp kết quả in ra màn hình tổng S của vòng lặp while-..do-..(0->10)

Điều kiện: while i<=10 do

Câu lệnh để lặp: 

begin

       s:=s+i;

       i:=i+1;

end;

*Chương trình

program tinh_S;

uses crt;

var s,i:byte;

begin

       clrscr;

       i:=0;  s:=0;

       while i<=10 do

              begin

                     s:=s+i;

                     i:=i+1;

              end;

       write(‘S= ‘,s);

       readln;

end.