viết chương trình tính S=2+4+6+… Việc thực hiện chỉ kết thúc khi S đạt giá trị nhỏ nhất lớn hơn giá trị TONG nhập từ bàn phím. Khi đó hãy cho biết g

program tinh_S;

uses crt;

var i,S,tong:integer;

begin

        clrscr;

        write(‘Nhap TONG: ‘);  readln(tong);

        i:=1;  S:=1;

        while S<=tong do

                begin

                        i:=i+1;

                        S:=S+i;

                end;

        write(‘Gia tri nho nhat cua S lon hon ‘,tong,’ la ‘,S, voi i= ‘,i);

        readln;

end.